net_hostent.t (was Re: [ID 20001128.002] what's the point of example code if it is...

[perl5.git] / perly.y

diff --git a/perly.y b/perly.y
index 5170b36..af0159e 100644 (file)
--- a/perly.y
+++ b/perly.y
@@ -266,7 +266,7 @@ nexpr       :       /* NULL */
        ;
 
 texpr  :       /* NULL means true */
-                       { (void)scan_num("1"); $$ = yylval.opval; }
+                       { (void)scan_num("1", &yylval); $$ = yylval.opval; }
        |       expr
        ;