diff options
| author | Craig A. Berry <craigberry@mac.com> | 2008-04-14 11:44:47 +0000 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2008-04-14 11:44:47 +0000 |
| commit | 946b2ae57c7213210606ab80e51116053f1baa7c (patch) | |
| tree | 137a18bb5756d359f93b7b23adf6e1846447c6c3 /ext/File/Glob | |
| parent | bf8300decce77d53edc393ca2221fb591a778c59 (diff) | |
| download | perl-946b2ae57c7213210606ab80e51116053f1baa7c.tar.gz | |
Test::More::is_deeply may do overloading (at least for TODOs), and
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
Diffstat (limited to 'ext/File/Glob')
| -rwxr-xr-x | ext/File/Glob/t/basic.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ext/File/Glob/t/basic.t b/ext/File/Glob/t/basic.t index fd09992da7..bdb2c5773f 100755 --- a/ext/File/Glob/t/basic.t +++ b/ext/File/Glob/t/basic.t @@ -173,8 +173,8 @@ pass("Don't panic"); 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']); } |