summaryrefslogtreecommitdiff
path: root/pp_sys.c
diff options
context:
space:
mode:
authorFather Chrysostomos <sprout@cpan.org>2012-01-13 22:47:31 -0800
committerFather Chrysostomos <sprout@cpan.org>2012-01-13 22:48:47 -0800
commit93fad9301a05ccd2d02b9949ee59a69708b508e1 (patch)
tree4013b20bde3697f8161416067c31097d510ba2d4 /pp_sys.c
parent6bb6781ab7f02fc1f87f3650fde209d9a792469b (diff)
downloadperl-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.c4
1 files changed, 3 insertions, 1 deletions
diff --git a/pp_sys.c b/pp_sys.c
index a3b7c51373..9d5c09c132 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -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)