From 295cb81d953bff3c7311cf5038d061abeb7802d9 Mon Sep 17 00:00:00 2001
From: Chris 'BinGOs' Williams <chris@bingosnet.co.uk>
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ř <ppisar@redhat.com>
---
 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