diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/stat.pl')
-rw-r--r-- | Master/tlpkg/tlperl/lib/stat.pl | 28 |
1 files changed, 15 insertions, 13 deletions
diff --git a/Master/tlpkg/tlperl/lib/stat.pl b/Master/tlpkg/tlperl/lib/stat.pl index 4174d6007d1..feda2739645 100644 --- a/Master/tlpkg/tlperl/lib/stat.pl +++ b/Master/tlpkg/tlperl/lib/stat.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"; + ;# This legacy library is deprecated and will be removed in a future ;# release of perl. ;# @@ -7,19 +9,19 @@ ;# $st_dev = @ary[$ST_DEV]; ;# -$ST_DEV = 0 + $[; -$ST_INO = 1 + $[; -$ST_MODE = 2 + $[; -$ST_NLINK = 3 + $[; -$ST_UID = 4 + $[; -$ST_GID = 5 + $[; -$ST_RDEV = 6 + $[; -$ST_SIZE = 7 + $[; -$ST_ATIME = 8 + $[; -$ST_MTIME = 9 + $[; -$ST_CTIME = 10 + $[; -$ST_BLKSIZE = 11 + $[; -$ST_BLOCKS = 12 + $[; +$ST_DEV = 0; +$ST_INO = 1; +$ST_MODE = 2; +$ST_NLINK = 3; +$ST_UID = 4; +$ST_GID = 5; +$ST_RDEV = 6; +$ST_SIZE = 7; +$ST_ATIME = 8; +$ST_MTIME = 9; +$ST_CTIME = 10; +$ST_BLKSIZE = 11; +$ST_BLOCKS = 12; ;# Usage: ;# require 'stat.pl'; |