* Synced the perlfaq

[p5sagit/p5-mst-13.2.git] / lib / stat.pl

diff --git a/lib/stat.pl b/lib/stat.pl
index 1895c58..a84b0ac 100644 (file)
--- a/lib/stat.pl
+++ b/lib/stat.pl
@@ -1,9 +1,15 @@
-;# $Header: stat.pl,v 2.0 88/06/05 00:16:29 root Exp $
-
+;# 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,9 +25,12 @@ $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;