* Synced the perlfaq

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

diff --git a/lib/assert.pl b/lib/assert.pl
index 4c9ebf2..768ae49 100644 (file)
--- a/lib/assert.pl
+++ b/lib/assert.pl
@@ -11,6 +11,9 @@
 # be printed out by &panic, which is just the stack-backtrace
 # routine shamelessly borrowed from the perl debugger.
 
+warn( "The 'assert.pl' legacy library is deprecated and will be"
+      . " removed in the next major release of perl." );
+
 sub assert {
     &panic("ASSERTION BOTCHED: $_[$[]",$@) unless eval $_[$[];
 }