Craig A. Berry [Mon, 14 Apr 2008 11:44:47 +0000 (11:44 +0000)]
overloading may require Scalar::Util, which it won't find if all
the paths in @INC are relative to somewhere other than where we are.
p4raw-id: //depot/perl@33674
chdir $dir
or die "Could not chdir to $dir: $!";
my(@glob_files) = glob("a*{d[e]}j");
- local $TODO = "home-made glob doesn't do regexes" if $^O eq 'VMS';
- is_deeply(\@glob_files, ['a_dej']);
chdir $cwd
or die "Could not chdir back to $cwd: $!";
+ local $TODO = "home-made glob doesn't do regexes" if $^O eq 'VMS';
+ is_deeply(\@glob_files, ['a_dej']);
}