From: Craig A. Berry <craigberry@mac.com>
Date: Mon, 14 Apr 2008 11:44:47 +0000 (+0000)
Subject: Test::More::is_deeply may do overloading (at least for TODOs), and
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=946b2ae57c7213210606ab80e51116053f1baa7c;p=p5sagit%2Fp5-mst-13.2.git

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
---

diff --git a/ext/File/Glob/t/basic.t b/ext/File/Glob/t/basic.t
index fd09992..bdb2c57 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']);
 }