From: Paul Marquess <paul.marquess@btinternet.com>
Date: Sun, 3 Mar 2002 22:09:58 +0000 (+0000)
Subject: attr
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=721f911bd078bff776eba5733ca4b92a2c683377;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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