diff options
| author | Todd Rinaldo <toddr@cpan.org> | 2010-09-01 11:18:43 -0500 |
|---|---|---|
| committer | Florian Ragwitz <rafl@debian.org> | 2010-09-01 19:47:18 +0200 |
| commit | 4c3ca3f48a3e5f7633cf0ffcb5ac673bdbcf7f45 (patch) | |
| tree | f89da0c8a5048a209f98bfd0e01454937e1108c4 /install_lib.pl | |
| parent | 2273b9b9f44135d5ec8ac2e589df0817682656de (diff) | |
| download | perl-4c3ca3f48a3e5f7633cf0ffcb5ac673bdbcf7f45.tar.gz | |
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.
Diffstat (limited to 'install_lib.pl')
| -rw-r--r-- | install_lib.pl | 2 |
1 files changed, 1 insertions, 1 deletions
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; |