RT 74444 - install_lib.pl emits warnings when installperl is run with destdir
authorTodd Rinaldo <toddr@cpan.org>
Wed, 1 Sep 2010 16:18:43 +0000 (11:18 -0500)
committerFlorian Ragwitz <rafl@debian.org>
Wed, 1 Sep 2010 17:47:18 +0000 (19:47 +0200)
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

index ae8ba0a..8d37a0c 100644 (file)
@@ -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;