From 0adf28fd674e657e95574d21ee920ad02ac21e92 Mon Sep 17 00:00:00 2001
From: Steffen Mueller <smueller@cpan.org>
Date: Wed, 2 Sep 2009 23:04:23 +0200
Subject: [PATCH] Deprecate stat.pl with a warning

---
 lib/stat.pl | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/lib/stat.pl b/lib/stat.pl
index c6682b9..a84b0ac 100644
--- a/lib/stat.pl
+++ b/lib/stat.pl
@@ -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 + $[;
-- 
1.8.3.1