diff options
author | Karl Williamson <khw@cpan.org> | 2015-10-05 16:54:24 -0600 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2015-10-06 09:33:43 -0600 |
commit | fe4c538d47e7d0e939b497b7a21e081d73b1dc89 (patch) | |
tree | f3123ad0b7c37274f9eb1f5149e79561e8c2b236 /ext/File-Glob | |
parent | 25047fde43540ef652cd6b03bb2de7d8fe4182c1 (diff) | |
download | perl-fe4c538d47e7d0e939b497b7a21e081d73b1dc89.tar.gz |
Fix ext/File-Glob/t/rt114984.t for -DPERL_EXTERNAL_GLOB
See https://rt.perl.org/Ticket/Display.html?id=126271
This commit changes a \n to a space so that when passed to a shell, it
doesn't think the 2nd line is a new sh command.
Diffstat (limited to 'ext/File-Glob')
-rw-r--r-- | ext/File-Glob/t/rt114984.t | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/ext/File-Glob/t/rt114984.t b/ext/File-Glob/t/rt114984.t index e53234b0aa..43e90d7508 100644 --- a/ext/File-Glob/t/rt114984.t +++ b/ext/File-Glob/t/rt114984.t @@ -32,8 +32,7 @@ foreach (@mp) { close $f; } } -my @b = glob(qq{$path/mp_[0123456789]*.dat - $path/md_[0123456789]*.dat}); +my @b = glob(qq{$path/mp_[0123456789]*.dat $path/md_[0123456789]*.dat}); if ($md+$mp < @md+@mp) { warn sprintf("$0: expected to create %d files, created only %d (path $path)\n", @md+@mp, $md+$mp); |