diff options
author | Tony Cook <tony@develop-help.com> | 2013-09-05 14:14:00 +1000 |
---|---|---|
committer | Tony Cook <tony@develop-help.com> | 2013-09-09 15:22:18 +1000 |
commit | de7dabb6fc03820bf19d0872e77db964a5e10731 (patch) | |
tree | a3f9e4e4f5dfa5b37d9ed5a88d6b3f3f91535e44 /doio.c | |
parent | ace0afd9d8231117ac1fa7ccd053348db7f9abf5 (diff) | |
download | perl-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.c | 6 |
1 files changed, 6 insertions, 0 deletions
@@ -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; } |