diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/getcwd.pl')
| -rw-r--r-- | Master/tlpkg/tlperl/lib/getcwd.pl | 8 |
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); #'); |