This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
typo fixes for root level scripts
[perl5.git] / install_lib.pl
index 8d37a0c..308af70 100644 (file)
@@ -16,7 +16,7 @@ BEGIN {
        # prefixes.
        #
        # So we set $^X to pretend that we're the already installed perl, so
-       # Config.pm doesits ... expansion off that location.
+       # Config.pm does its ... expansion off that location.
 
        my $location = $Config{initialinstalllocation};
        die <<'OS' unless defined $location;
@@ -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;