# 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;
my($dev1, $ino1, $dev2, $ino2);
($dev1, $ino1) = stat($p1);
($dev2, $ino2) = stat($p2);
- ($dev1 ~~ $dev2 && $ino1 ~~ $ino2);
+ ($dev1 == $dev2 && $ino1 == $ino2);
}
else {
1;