From 946b2ae57c7213210606ab80e51116053f1baa7c Mon Sep 17 00:00:00 2001 From: "Craig A. Berry" Date: Mon, 14 Apr 2008 11:44:47 +0000 Subject: [PATCH] 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 --- ext/File/Glob/t/basic.t | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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']); } -- 2.7.4