X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2Fstat.pl;h=a84b0accc4fec624af60f66ccbc78eaf11df69ad;hb=b595cd4b73a6e1bd45865d6446c34d4019c740d1;hp=8cf0bde1936be8dd87c84776697da3109ee07e58;hpb=a687059cbaf2c6fdccb5e0fae2aee80ec15625a8;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/stat.pl b/lib/stat.pl
index 8cf0bde..a84b0ac 100644
--- a/lib/stat.pl
+++ b/lib/stat.pl
@@ -1,9 +1,15 @@
-;# $Header: stat.pl,v 3.0 89/10/18 15:19:53 lwall Locked $
-
+;# 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];
 ;#
+
+warn( "The 'stat.pl' legacy library is deprecated and will be"
+      . " removed in the next major release of perl." );
+
 $ST_DEV =	0 + $[;
 $ST_INO =	1 + $[;
 $ST_MODE =	2 + $[;
@@ -19,6 +25,7 @@ $ST_BLKSIZE =	11 + $[;
 $ST_BLOCKS =	12 + $[;
 
 ;# Usage:
+;#	require 'stat.pl';
 ;#	do Stat('foo');		# sets st_* as a side effect
 ;#
 sub Stat {