[ID 20001025.011] [PATCH] t/io/open.t perl@7369[ 7350] breaks VMS perl

[p5sagit/p5-mst-13.2.git] / vms / perly_c.vms

diff --git a/vms/perly_c.vms b/vms/perly_c.vms
index 0676ebd..640780a 100644 (file)
--- a/vms/perly_c.vms
+++ b/vms/perly_c.vms
@@ -1749,7 +1749,7 @@ case 35:
 break;
 case 37:
 #line 269 "perly.y"
-{ (void)scan_num("1"); yyval.opval = yylval.opval; }
+{ (void)scan_num("1", &yylval); yyval.opval = yylval.opval; }
 break;
 case 39:
 #line 274 "perly.y"