Test::More::is_deeply may do overloading (at least for TODOs), and
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

ext/File/Glob/t/basic.t

index fd09992..bdb2c57 100755 (executable)
@@ -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']);
 }