X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=pod%2Fperlfaq4.pod;h=838f753fa6ae2d0f6999708bdee91eee93d1745b;hb=24e8e38014028731fb2fddf4fe788525eb66a6b5;hp=63e093fe0ee9ce1bdf696c4429c3115aa9f7d5fe;hpb=87275199ef473a0bd08ce6f46db30d4d432f4876;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/pod/perlfaq4.pod b/pod/perlfaq4.pod
index 63e093f..838f753 100644
--- 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