Deprecate stat.pl with a warning
authorSteffen Mueller <smueller@cpan.org>
Wed, 2 Sep 2009 21:04:23 +0000 (23:04 +0200)
committerSteffen Mueller <smueller@cpan.org>
Wed, 2 Sep 2009 21:04:23 +0000 (23:04 +0200)
lib/stat.pl

index c6682b9..a84b0ac 100644 (file)
@@ -1,8 +1,15 @@
+;# 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 + $[;