From: Father Chrysostomos <sprout@cpan.org>
Date: Sun, 5 Aug 2012 19:41:48 +0000 (-0700)
Subject: Make glob.t more resilient
X-Git-Tag: upstream/5.20.0~5887
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=f922571b226d9a59e677b263d6fda481db5611c4;p=platform%2Fupstream%2Fperl.git

Make glob.t more resilient

It was not tolerating editor temp files with spaces in their
names.  It was testing the output of <op/*> by comparing it with
split /\s/, `echo op/*` on non-Windows non-VMS systems (Unix).
`ls op/* | cat` produces more machine-friendly output, so use that.
---

diff --git a/t/op/glob.t b/t/op/glob.t
index f122fa9..8ad827e 100644
--- a/t/op/glob.t
+++ b/t/op/glob.t
@@ -20,7 +20,7 @@ elsif ($^O eq 'VMS') {
 }
 else {
   map { $files{$_}++ } <op/*>;
-  map { delete $files{$_} } split /[\s\n]/, `echo op/*`;
+  map { delete $files{$_} } split /\n/, `ls op/* | cat`;
 }
 ok( !(keys(%files)),'leftover op/* files' ) or diag(join(' ',sort keys %files));