diff options
Diffstat (limited to 'vms/perly_c.vms')
| -rw-r--r-- | vms/perly_c.vms | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/vms/perly_c.vms b/vms/perly_c.vms index db1f255c56..2fc17813f6 100644 --- a/vms/perly_c.vms +++ b/vms/perly_c.vms @@ -1775,7 +1775,7 @@ case 56: break; case 57: #line 302 "perly.y" -{ char *name = SvPV(((SVOP*)yyvsp[0].opval)->op_sv, PL_na); +{ STRLEN n_a; char *name = SvPV(((SVOP*)yyvsp[0].opval)->op_sv, n_a); if (strEQ(name, "BEGIN") || strEQ(name, "END") || strEQ(name, "INIT")) CvUNIQUE_on(PL_compcv); |