ExtUtils::XSSymSet can now let the compiler shorten symbols.

[perl5.git] / lib / open2.pl

diff --git a/lib/open2.pl b/lib/open2.pl
index 5c24a3c..ceb5653 100644 (file)
--- a/lib/open2.pl
+++ b/lib/open2.pl
@@ -1,3 +1,5 @@
+warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n";
+
 # This legacy library is deprecated and will be removed in a future
 # release of perl.
 #
@@ -10,10 +12,6 @@
 #
 #     require 'open2.pl';
 
-warn( "The 'open2.pl' legacy library is deprecated and will be"
-      . " removed in the next major release of perl. Please use the"
-      . " IPC::Open2 module instead." );
-
 package main;
 use IPC::Open2 'open2';
 1