From 295cb81d953bff3c7311cf5038d061abeb7802d9 Mon Sep 17 00:00:00 2001 From: Chris 'BinGOs' Williams Date: Fri, 24 Jan 2014 15:51:43 +0000 Subject: [PATCH 1/2] Resolve test failures on v5.16.x MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Signed-off-by: Petr Písař --- t/01_Module_Load_Conditional.t | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/t/01_Module_Load_Conditional.t b/t/01_Module_Load_Conditional.t index 1b8728f..1bfa1a1 100644 --- a/t/01_Module_Load_Conditional.t +++ b/t/01_Module_Load_Conditional.t @@ -281,8 +281,8 @@ SKIP:{ local $Module::Load::Conditional::CHECK_INC_HASH = 1; { package A::B::C::D; - $A::B::C::D::VERSION = $$; - $INC{'A/B/C/D.pm'} = $$.$$; + $A::B::C::D::VERSION = "$$"; + $INC{'A/B/C/D.pm'} = "$$"."$$"; ### XXX this is no longer needed with M::Load 0.11_01 #$INC{'[.A.B.C]D.pm'} = $$.$$ if $^O eq 'VMS'; @@ -291,8 +291,8 @@ SKIP:{ my $href = check_install( module => 'A::B::C::D', version => 0 ); ok( $href, 'Found package in %INC' ); - is( $href->{'file'}, $$.$$, ' Found correct file' ); - is( $href->{'version'}, $$, ' Found correct version' ); + is( $href->{'file'}, "$$"."$$", ' Found correct file' ); + is( $href->{'version'}, "$$", ' Found correct version' ); ok( $href->{'uptodate'}, ' Marked as uptodate' ); ok( can_load( modules => { 'A::B::C::D' => 0 } ), ' can_load successful' ); -- 1.9.0