X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/e846f1dc86643f46748f814adf2948a5787a2ccf..8cc871bd82ee24f31b8b9cf2c8458ced9d3dfd42:/lib/stat.pl

diff --git a/lib/stat.pl b/lib/stat.pl
deleted file mode 100644
index feda273..0000000
--- a/lib/stat.pl
+++ /dev/null
@@ -1,35 +0,0 @@
-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.
-;#
-;# Usage:
-;#	require 'stat.pl';
-;#	@ary = stat(foo);
-;#	$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;
-
-;# Usage:
-;#	require 'stat.pl';
-;#	do Stat('foo');		# sets st_* as a side effect
-;#
-sub Stat {
-    ($st_dev,$st_ino,$st_mode,$st_nlink,$st_uid,$st_gid,$st_rdev,$st_size,
-	$st_atime,$st_mtime,$st_ctime,$st_blksize,$st_blocks) = stat(shift(@_));
-}
-
-1;