# test if $_ takes as the default
my $expected;
-if ($^O eq 'MacOS') {
- $expected = $_ = ":op:a*.t";
-} else {
- $expected = $_ = "op/a*.t";
-}
+$expected = $_ = "op/a*.t";
my @r = glob;
print "not " if $_ ne $expected;
print "ok 1\n";
print "ok 2\n";
# check if <*/*> works
-if ($^O eq 'MacOS') {
- @r = <:*:a*.t>;
-} else {
- @r = <*/a*.t>;
-}
+@r = <*/a*.t>;
# atleast {argv,abbrev,anydbm,autoloader,append,arith,array,assignwarn,auto}.t
print "# |@r|\nnot " if @r < 9;
print "ok 3\n";
# check if scalar context works
@r = ();
-while (defined($_ = ($^O eq 'MacOS') ? <:*:a*.t> : <*/a*.t>)) {
+while (defined($_ = <*/a*.t>)) {
print "# $_\n";
push @r, $_;
}
# check if list context works
@r = ();
-if ($^O eq 'MacOS') {
- for (<:*:a*.t>) {
- print "# $_\n";
- push @r, $_;
- }
-} else {
- for (<*/a*.t>) {
- print "# $_\n";
- push @r, $_;
- }
+for (<*/a*.t>) {
+ print "# $_\n";
+ push @r, $_;
}
print "not " if @r != $r;
print "ok 5\n";
# test if implicit assign to $_ in while() works
@r = ();
-if ($^O eq 'MacOS') {
- while (<:*:a*.t>) {
- print "# $_\n";
- push @r, $_;
- }
-} else {
- while (<*/a*.t>) {
- print "# $_\n";
- push @r, $_;
- }
+while (<*/a*.t>) {
+ print "# $_\n";
+ push @r, $_;
}
print "not " if @r != $r;
print "ok 6\n";
# test if explicit glob() gets assign magic too
my @s = ();
-my $pat = ($^O eq 'MacOS') ? ':*:a*.t': '*/a*.t';
+my $pat = '*/a*.t';
while (glob ($pat)) {
print "# $_\n";
push @s, $_;
package Foo;
use File::DosGlob 'glob';
@s = ();
-$pat = $^O eq 'MacOS' ? ':*:a*.t' : '*/a*.t';
+$pat = '*/a*.t';
while (glob($pat)) {
print "# $_\n";
push @s, $_;
# test if different glob ops maintain independent contexts
@s = ();
-if ($^O eq 'MacOS') {
- while (<:*:a*.t>) {
- my $i = 0;
- print "# $_ <";
- push @s, $_;
- while (<:*:b*.t>) {
- print " $_";
- $i++;
- }
- print " >\n";
- }
-} else {
- while (<*/a*.t>) {
- my $i = 0;
- print "# $_ <";
- push @s, $_;
- while (<*/b*.t>) {
- print " $_";
- $i++;
- }
- print " >\n";
+while (<*/a*.t>) {
+ my $i = 0;
+ print "# $_ <";
+ push @s, $_;
+ while (<*/b*.t>) {
+ print " $_";
+ $i++;
}
+ print " >\n";
}
print "not " if "@r" ne "@s";
print "ok 9\n";
use File::DosGlob 'GLOBAL_glob';
package Bar;
@s = ();
-if ($^O eq 'MacOS') {
- while (<:*:a*.t>) {
- my $i = 0;
- print "# $_ <";
- push @s, $_;
- while (glob ':*:b*.t') {
- print " $_";
- $i++;
- }
- print " >\n";
- }
-} else {
- while (<*/a*.t>) {
- my $i = 0;
- print "# $_ <";
- push @s, $_;
- while (glob '*/b*.t') {
- print " $_";
- $i++;
- }
- print " >\n";
+while (<*/a*.t>) {
+ my $i = 0;
+ print "# $_ <";
+ push @s, $_;
+ while (glob '*/b*.t') {
+ print " $_";
+ $i++;
}
+ print " >\n";
}
print "not " if "@r" ne "@s";
print "ok 10\n";