perlfaq4 typo (from Jeff Pinyan <jeffp@crusoe.net>)

p4raw-id: //depot/perl@4635

diff --git a/pod/perlfaq4.pod b/pod/perlfaq4.pod
index 63e093f..838f753 100644 (file)
--- a/pod/perlfaq4.pod
+++ b/pod/perlfaq4.pod
@@ -1746,7 +1746,7 @@ if you just want to say, ``Is this a float?''
         } 
     } 
 
-    sub is_numeric { defined &getnum } 
+    sub is_numeric { defined getnum($_[0]) } 
 
 Or you could check out
 http://www.perl.com/CPAN/modules/by-module/String/String-Scanf-1.1.tar.gz