Change 11863 by jhi@alpha on 2001/09/04 13:06:39
Subject: [PATCH gv.c] @& sets PL_sawampersand
From: "Jeff 'japhy/Marillion' Pinyan" <[EMAIL PROTECTED]>
Date: Mon, 3 Sep 2001 12:36:20 -0400 (EDT)
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/gv.c#151 edit
Differences ...
==== //depot/perl/gv.c#151 (text) ====
Index: perl/gv.c
--- perl/gv.c.~1~ Tue Sep 4 07:15:05 2001
+++ perl/gv.c Tue Sep 4 07:15:05 2001
@@ -814,20 +814,17 @@
break;
case '&':
- if (len > 1)
- break;
- PL_sawampersand = TRUE;
- goto ro_magicalize;
-
case '`':
- if (len > 1)
- break;
- PL_sawampersand = TRUE;
- goto ro_magicalize;
-
case '\'':
- if (len > 1)
- break;
+ if (
+ len > 1 ||
+ sv_type == SVt_PVAV ||
+ sv_type == SVt_PVHV ||
+ sv_type == SVt_PVCV ||
+ sv_type == SVt_PVGV ||
+ sv_type == SVt_PVFM ||
+ sv_type == SVt_PVIO
+ ) { break; }
PL_sawampersand = TRUE;
goto ro_magicalize;
End of Patch.
