summaryrefslogtreecommitdiff
path: root/doio.c
diff options
context:
space:
mode:
authorTony Cook <tony@develop-help.com>2013-09-05 14:14:00 +1000
committerTony Cook <tony@develop-help.com>2013-09-09 15:22:18 +1000
commitde7dabb6fc03820bf19d0872e77db964a5e10731 (patch)
treea3f9e4e4f5dfa5b37d9ed5a88d6b3f3f91535e44 /doio.c
parentace0afd9d8231117ac1fa7ccd053348db7f9abf5 (diff)
downloadperl-de7dabb6fc03820bf19d0872e77db964a5e10731.tar.gz
[perl #117265] move the "glob failed" warning to the point of failure
This avoids an extraneous warning when globbing fails for other reasons.
Diffstat (limited to 'doio.c')
-rw-r--r--doio.c6
1 files changed, 6 insertions, 0 deletions
diff --git a/doio.c b/doio.c
index 3988c78873..f2c3752b6d 100644
--- a/doio.c
+++ b/doio.c
@@ -2447,6 +2447,12 @@ Perl_vms_start_glob
fp = IoIFP(io);
#endif /* !VMS */
LEAVE;
+
+ if (!fp && ckWARN(WARN_GLOB)) {
+ Perl_warner(aTHX_ packWARN(WARN_GLOB), "glob failed (can't start child: %s)",
+ Strerror(errno));
+ }
+
return fp;
}