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