Blame SOURCES/Module-Load-Conditional-0.60-Resolve-test-failures-on-v5.16.x.patch

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