diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-08-10 09:46:34 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-08-10 09:46:34 +0000 |
| commit | 38ddb0ef3c43048c9fb5a4c40493be5d413b269e (patch) | |
| tree | 9b279614ce05bf822ac9e90dab16845858758b90 /pp_sys.c | |
| parent | 1d0eb99ac8ec0dfd859e9def067c632124d58343 (diff) | |
| download | perl-38ddb0ef3c43048c9fb5a4c40493be5d413b269e.tar.gz | |
lstat on *GLOB{IO} with warnings on would segfault
(noticed by Andrew Dougherty)
p4raw-id: //depot/perl@28690
Diffstat (limited to 'pp_sys.c')
| -rw-r--r-- | pp_sys.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -2798,7 +2798,7 @@ PP(pp_stat) do_fstat_warning_check: if (ckWARN(WARN_IO)) Perl_warner(aTHX_ packWARN(WARN_IO), - "lstat() on filehandle %s", GvENAME(gv)); + "lstat() on filehandle %s", gv ? GvENAME(gv) : ""); } else if (PL_laststype != OP_LSTAT) Perl_croak(aTHX_ "The stat preceding lstat() wasn't an lstat"); } |