Change 26061 by [EMAIL PROTECTED] on 2005/11/09 11:21:10
Simplify Perl_allocmy slightly, and cope better with the name is ""
case.
Affected files ...
... //depot/perl/op.c#720 edit
Differences ...
==== //depot/perl/op.c#720 (text) ====
Index: perl/op.c
--- perl/op.c#719~26050~ Tue Nov 8 13:37:52 2005
+++ perl/op.c Wed Nov 9 03:21:10 2005
@@ -211,11 +211,13 @@
PADOFFSET off;
/* complain about "my $<special_var>" etc etc */
- if (!(PL_in_my == KEY_our ||
+ if (*name &&
+ !(PL_in_my == KEY_our ||
isALPHA(name[1]) ||
(USE_UTF8_IN_NAMES && UTF8_IS_START(name[1])) ||
- (name[1] == '_' && (*name == '$' || (int)strlen(name) > 2))))
+ (name[1] == '_' && (*name == '$' || name[2]))))
{
+ /* name[2] is true if strlen(name) > 2 */
if (!isPRINT(name[1]) || strchr("\t\n\r\f", name[1])) {
/* 1999-02-27 [EMAIL PROTECTED] */
char *p;
End of Patch.
