diff options
| author | Bram <perl-rt@wizbit.be> | 2008-06-10 20:26:26 -0700 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2008-06-17 11:13:38 +0000 |
| commit | 8433848b134d4e61d5135fd8a70d8106025ac6a6 (patch) | |
| tree | 1f4ece2adf27300a2e20f1fc53672a98e7ce1eaf /perl.h | |
| parent | 8dc00b2f10de49b4d2d4be48279a996698c3f04a (diff) | |
| download | perl-8433848b134d4e61d5135fd8a70d8106025ac6a6.tar.gz | |
[perl #51370] length($@)>0 for empty $@ if utf8 is in use
From: "Bram via RT" <perlbug-followup@perl.org>
Message-ID: <rt-3.6.HEAD-18229-1213179984-1708.51370-15-0@perl.org>
(The first patch)
p4raw-id: //depot/perl@34068
Diffstat (limited to 'perl.h')
| -rw-r--r-- | perl.h | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -6008,6 +6008,8 @@ extern void moncontrol(int); #endif /* Include guard */ +#define clear_errsv() STMT_START { sv_setpvn(ERRSV,"",0); if (SvMAGICAL(ERRSV)) { mg_free(ERRSV); } SvPOK_only(ERRSV); } STMT_END + /* * Local variables: * c-indentation-style: bsd |