summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/getcwd.pl
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/getcwd.pl')
-rw-r--r--Master/tlpkg/tlperl/lib/getcwd.pl8
1 files changed, 5 insertions, 3 deletions
diff --git a/Master/tlpkg/tlperl/lib/getcwd.pl b/Master/tlpkg/tlperl/lib/getcwd.pl
index fcca2ced80d..77b2442d3bb 100644
--- a/Master/tlpkg/tlperl/lib/getcwd.pl
+++ b/Master/tlpkg/tlperl/lib/getcwd.pl
@@ -1,3 +1,5 @@
+warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n";
+
# By Brandon S. Allbery
#
# This library is no longer being maintained, and is included for backward
@@ -38,7 +40,7 @@ sub getcwd
closedir(getcwd'PARENT); #');
return '';
}
- if ($pst[$[] == $cst[$[] && $pst[$[ + 1] == $cst[$[ + 1])
+ if ($pst[0] == $cst[0] && $pst[1] == $cst[1])
{
$dir = '';
}
@@ -59,8 +61,8 @@ sub getcwd
# return '';
}
}
- while ($dir eq '.' || $dir eq '..' || $tst[$[] != $pst[$[] ||
- $tst[$[ + 1] != $pst[$[ + 1]);
+ while ($dir eq '.' || $dir eq '..' || $tst[0] != $pst[0] ||
+ $tst[1] != $pst[1]);
}
$cwd = "$dir/$cwd";
closedir(getcwd'PARENT); #');