diff options
| author | Nicholas Clark <nick@ccl4.org> | 2005-06-08 08:04:53 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2005-06-08 08:04:53 +0000 |
| commit | fd367867636c3c5c363c15be0f203f36e4df99b0 (patch) | |
| tree | b5d36d0f4c58d0a6ad8255d4ea5715c55f420931 /perly.act | |
| parent | c053b435c0eae6a81e9a54598b068d7be84d74cc (diff) | |
| download | perl-fd367867636c3c5c363c15be0f203f36e4df99b0.tar.gz | |
More SvPV consting
p4raw-id: //depot/perl@24746
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; char *name = SvPV(((SVOP*)yyvsp[0].opval)->op_sv,n_a); + { STRLEN n_a; const char *name = SvPV_const(((SVOP*)yyvsp[0].opval)->op_sv,n_a); if (strEQ(name, "BEGIN") || strEQ(name, "END") || strEQ(name, "INIT") || strEQ(name, "CHECK")) CvSPECIAL_on(PL_compcv); |