Make tie_fetch_count.t pass on ‘broken’ platforms

[perl5.git] / install_lib.pl

diff --git a/install_lib.pl b/install_lib.pl
index ae8ba0a..8d37a0c 100644 (file)
--- 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;