diff options
| author | Gisle Aas <gisle@aas.no> | 2005-05-18 01:35:47 -0700 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-05-18 16:08:30 +0000 |
| commit | e5218da503dbb4980410e0018f4cc5dcba3ea666 (patch) | |
| tree | 896f8cf586a22fa6f98384571dea2ba73b133df3 /gv.c | |
| parent | 6b09c1601036c61459334bdedef5d7e29e07fcaf (diff) | |
| download | perl-e5218da503dbb4980410e0018f4cc5dcba3ea666.tar.gz | |
Well defined $? and introduction of ${^CHILD_ERROR_NATIVE} [PATCH]
Message-ID: <lr8y2cim24.fsf_-_@caliper.activestate.com>
p4raw-id: //depot/perl@24501
Diffstat (limited to 'gv.c')
| -rw-r--r-- | gv.c | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -932,6 +932,10 @@ Perl_gv_fetchpvn_flags(pTHX_ const char *nambeg, STRLEN full_len, I32 flags, if (strEQ(name2, "ERSION")) GvMULTI_on(gv); break; + case '\003': /* $^CHILD_ERROR_NATIVE */ + if (strEQ(name2, "HILD_ERROR_NATIVE")) + goto magicalize; + break; case '\005': /* $^ENCODING */ if (strEQ(name2, "NCODING")) goto magicalize; |