Change 24746 by [EMAIL PROTECTED] on 2005/06/08 08:04:53
More SvPV consting
Affected files ...
... //depot/perl/perly.act#7 edit
... //depot/perl/perly.y#62 edit
Differences ...
==== //depot/perl/perly.act#7 (text) ====
Index: perl/perly.act
--- perl/perly.act#6~24412~ Sat May 7 05:57:06 2005
+++ perl/perly.act Wed Jun 8 01:04:53 2005
@@ -329,7 +329,7 @@
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);
==== //depot/perl/perly.y#62 (text) ====
Index: perl/perly.y
--- perl/perly.y#61~24412~ Sat May 7 05:57:06 2005
+++ perl/perly.y Wed Jun 8 01:04:53 2005
@@ -338,7 +338,7 @@
;
/* Name of a subroutine - must be a bareword, could be special */
-subname : WORD { STRLEN n_a; char *name =
SvPV(((SVOP*)$1)->op_sv,n_a);
+subname : WORD { STRLEN n_a; const char *name =
SvPV_const(((SVOP*)$1)->op_sv,n_a);
if (strEQ(name, "BEGIN") || strEQ(name, "END")
|| strEQ(name, "INIT") || strEQ(name, "CHECK"))
CvSPECIAL_on(PL_compcv);
End of Patch.
