require warnings; as late as possible, to avoid a new side effect of
Nicholas Clark [Sat, 7 Feb 2009 15:00:33 +0000 (15:00 +0000)]
use UNIVERSAL;

lib/UNIVERSAL.pm

index 01a16ca..d0aa1ed 100644 (file)
@@ -11,12 +11,11 @@ our $VERSION = '1.04';
 require Exporter;
 @EXPORT_OK = qw(isa can VERSION);
 
-require warnings;
-
 # Make sure that even though the import method is called, it doesn't do
 # anything unless called on UNIVERSAL.
 sub import {
     return unless $_[0] eq __PACKAGE__;
+    require warnings;
     warnings::warnif(
       'deprecated',
       'UNIVERSAL->import is deprecated and will be removed in a future perl',