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 7eeae1d..8d37a0c 100644 (file)
--- a/install_lib.pl
+++ b/install_lib.pl
@@ -29,6 +29,7 @@ OS
        undef %Config::;
        delete $INC{"Config.pm"};
        delete $INC{"Config_heavy.pl"};
+       delete $INC{"Config_git.pl"};
        # You never saw us. We weren't here.
 
        require Config;
@@ -119,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;