diff options
Diffstat (limited to 'lib/Module')
| -rw-r--r-- | lib/Module/Load/Conditional.pm | 2 | ||||
| -rw-r--r-- | lib/Module/Load/Conditional/t/01_Module_Load_Conditional.t | 5 |
2 files changed, 4 insertions, 3 deletions
diff --git a/lib/Module/Load/Conditional.pm b/lib/Module/Load/Conditional.pm index 4fba341d79..c9fe15d87f 100644 --- a/lib/Module/Load/Conditional.pm +++ b/lib/Module/Load/Conditional.pm @@ -18,7 +18,7 @@ BEGIN { $FIND_VERSION $ERROR $CHECK_INC_HASH]; use Exporter; @ISA = qw[Exporter]; - $VERSION = '0.28'; + $VERSION = '0.28_01'; $VERBOSE = 0; $FIND_VERSION = 1; $CHECK_INC_HASH = 0; diff --git a/lib/Module/Load/Conditional/t/01_Module_Load_Conditional.t b/lib/Module/Load/Conditional/t/01_Module_Load_Conditional.t index dbd5ecdfb3..6972c1b06f 100644 --- a/lib/Module/Load/Conditional/t/01_Module_Load_Conditional.t +++ b/lib/Module/Load/Conditional/t/01_Module_Load_Conditional.t @@ -48,8 +48,9 @@ use_ok( 'Module::Load::Conditional' ); q[ Found proper version] ); ok( $rv->{dir}, q[ Found directory information] ); - { my $dir_re = qr/^$rv->{dir}/i; - like( $rv->{file}, $dir_re, + { my $dir = File::Spec->canonpath( $rv->{dir} ); + my $dir_re = qr/^\Q$dir\E/i; + like( File::Spec->canonpath( $rv->{file} ), $dir_re, q[ Dir subset of file path] ); } |