diff options
| author | Steve Hay <SteveHay@planit.com> | 2008-12-19 14:58:20 +0000 |
|---|---|---|
| committer | Steve Hay <SteveHay@planit.com> | 2008-12-19 14:58:20 +0000 |
| commit | 687d0cf84a5d65b31d19c4471515acd393337a48 (patch) | |
| tree | f689174682f2a50e159eaa04dd501b63d660003f /lib/Module | |
| parent | 495650dc2e3ce928c17348e320e4337c45ce00d6 (diff) | |
| download | perl-687d0cf84a5d65b31d19c4471515acd393337a48.tar.gz | |
Fix new Module-Load-Conditional test, which otherwise fails on Win32.
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] ); } |