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