attr

   From: "Paul Marquess" <paul_marquess@yahoo.co.uk>
   Message-Id: <AIEAJICLCBDNAAOLLOKLOEINDOAA.paul_marquess@yahoo.co.uk>

p4raw-id: //depot/perl@14976

diff --git a/lib/warnings.pm b/lib/warnings.pm
index e579a27..d0aa7b3 100644 (file)
--- a/lib/warnings.pm
+++ b/lib/warnings.pm
@@ -32,9 +32,9 @@ warnings - Perl pragma to control optional warnings
         warnings::warn($object, "some warning");
     }
 
-    warnif("some warning");
-    warnif("void", "some warning");
-    warnif($object, "some warning");
+    warnings::warnif("some warning");
+    warnings::warnif("void", "some warning");
+    warnings::warnif($object, "some warning");
 
 =head1 DESCRIPTION
 

diff --git a/warnings.pl b/warnings.pl
index e5ac703..f69c803 100644 (file)
--- a/warnings.pl
+++ b/warnings.pl
@@ -373,9 +373,9 @@ warnings - Perl pragma to control optional warnings
         warnings::warn($object, "some warning");
     }
 
-    warnif("some warning");
-    warnif("void", "some warning");
-    warnif($object, "some warning");
+    warnings::warnif("some warning");
+    warnings::warnif("void", "some warning");
+    warnings::warnif($object, "some warning");
 
 =head1 DESCRIPTION