From 4c3ca3f48a3e5f7633cf0ffcb5ac673bdbcf7f45 Mon Sep 17 00:00:00 2001
From: Todd Rinaldo <toddr@cpan.org>
Date: Wed, 1 Sep 2010 11:18:43 -0500
Subject: RT 74444 - install_lib.pl emits warnings when installperl is run with
 destdir

running the following produces 7 warnings like this on my system:
'LD_LIBRARY_PATH=/usr/home/build/perl-5.12.0  ./perl installperl --destdir=/var/local/tmp/perl-root'

Use of uninitialized value $dev2 in numeric eq (==) at ./install_lib.pl line 123.

replacing == with ~~ (the smart match operator) seems to be the best DWIM fix.
---
 install_lib.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'install_lib.pl')

diff --git a/install_lib.pl b/install_lib.pl
index ae8ba0a990..8d37a0c7ff 100644
--- a/install_lib.pl
+++ b/install_lib.pl
@@ -120,7 +120,7 @@ sub samepath {
 	my($dev1, $ino1, $dev2, $ino2);
 	($dev1, $ino1) = stat($p1);
 	($dev2, $ino2) = stat($p2);
-	($dev1 == $dev2 && $ino1 == $ino2);
+	($dev1 ~~ $dev2 && $ino1 ~~ $ino2);
     }
     else {
 	1;
-- 
cgit v1.2.1