diff options
author | Father Chrysostomos <sprout@cpan.org> | 2012-01-13 22:47:31 -0800 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2012-01-13 22:48:47 -0800 |
commit | 93fad9301a05ccd2d02b9949ee59a69708b508e1 (patch) | |
tree | 4013b20bde3697f8161416067c31097d510ba2d4 /pp_sys.c | |
parent | 6bb6781ab7f02fc1f87f3650fde209d9a792469b (diff) | |
download | perl-93fad9301a05ccd2d02b9949ee59a69708b508e1.tar.gz |
pp_sys.c: Remove space from lstat($ioref) warning
This was emitting two spaces before the ‘at’:
lstat() on filehandle at -e line 1.
Diffstat (limited to 'pp_sys.c')
-rw-r--r-- | pp_sys.c | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -2763,7 +2763,9 @@ PP(pp_stat) if (gv != PL_defgv) { do_fstat_warning_check: Perl_ck_warner(aTHX_ packWARN(WARN_IO), - "lstat() on filehandle %"SVf, SVfARG(gv + "lstat() on filehandle%s%"SVf, + gv ? " " : "", + SVfARG(gv ? sv_2mortal(newSVhek(GvENAME_HEK(gv))) : &PL_sv_no)); } else if (PL_laststype != OP_LSTAT) |