diff options
author | Brian Fraser <fraserbn@gmail.com> | 2013-03-25 01:22:35 -0300 |
---|---|---|
committer | Karl Williamson <public@khwilliamson.com> | 2013-03-26 21:06:52 -0600 |
commit | 0f539b13d39feb3bad9b2c86a57dea5035124802 (patch) | |
tree | a6481e6c7d13e8681c8bb93e4d8a9ebe563f5598 /install_lib.pl | |
parent | 629deb5825bff527bfd3021146f63d64c72b50ce (diff) | |
download | perl-0f539b13d39feb3bad9b2c86a57dea5035124802.tar.gz |
Make smartmatch, given & when experimental
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 8d37a0c7ff..ae8ba0a990 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; |