diff options
| author | Nicholas Clark <nick@ccl4.org> | 2005-09-21 10:53:56 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2005-09-21 10:53:56 +0000 |
| commit | 2596d9fe3023e9da9e3e000993c9f26fa30909ef (patch) | |
| tree | 24896940c9bb348b74e34fad515317adb56837ac /perly.act | |
| parent | 8dfcc1616e57fd4d21ae26bcb2e0c92ae93ab613 (diff) | |
| download | perl-2596d9fe3023e9da9e3e000993c9f26fa30909ef.tar.gz | |
Remove the last STRLEN n_a;s that my compiler can reach.
p4raw-id: //depot/perl@25530
Diffstat (limited to 'perly.act')
| -rw-r--r-- | perly.act | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -329,7 +329,7 @@ case 2: case 61: #line 341 "perly.y" - { STRLEN n_a; const char *name = SvPV_const(((SVOP*)(yyvsp[0].opval))->op_sv,n_a); + { const char *const name = SvPV_nolen_const(((SVOP*)(yyvsp[0].opval))->op_sv); if (strEQ(name, "BEGIN") || strEQ(name, "END") || strEQ(name, "INIT") || strEQ(name, "CHECK")) CvSPECIAL_on(PL_compcv); |