Select Code to Download

use strict; 
use warnings;
...

# Get back to the starting point
chdir $initial_dir;

ok 1 - changed to new directory
ok 2 - changed back to original directory
1..2

not ok 1 - changed to new directory
#     Failed test (cwd_post1.pl at line 26)
...
ok 2 - changed back to original directory
1..2
# Looks like you failed 1 test of 2.

-    is( cwd(), $new_dir, "changed to new directory" );
+    is( File::Spec->canonpath( cwd() ), $new_dir, "changed to new dir
+ectory" );

-    my $new_dir = pushd( 't' );
+    my $new_dir = pushd( File::Spec->rootdir );

not ok 1 - changed to new directory
#     Failed test (cwd_post3.pl at line 26)
...
ok 2 - changed back to original directory
1..2
# Looks like you failed 1 test of 2.

-    is( File::Spec->canonpath( cwd() ), $new_dir, "changed to new dir
+ectory" );
+    is( File::Spec->abs2rel( cwd(), $new_dir), File::Spec->curdir, 
+        "changed to new directory" 
+    );

not ok 1 - changed to new directory
#     Failed test (cwd_post4.pl at line 26)
#          got: ''
#     expected: '.'
ok 2 - changed back to original directory

$ perl -MFile::Spec -e 'print File::Spec->catdir(".","t")'
t

$ perl -MFile::Spec -e 'print File::Spec->catdir("","t")'
/t

not ok 1 - changed to new directory
#     Failed test (cwd_post4.pl at line 26)
...
ok 2 - changed back to original directory
1..2
# Looks like you failed 1 test of 2.

 use File::Spec;
+use File::Spec::Functions qw( canonpath splitpath );

-    is( File::Spec->abs2rel( cwd(), $new_dir), q{.}, 
+    is( canonpath( [ splitpath( cwd(), 1 ) ]->[1] ), 
+        $new_dir, 
         "changed to new directory" 
     );

-    my $new_dir = pushd( File::Spec->rootdir );
+    my $new_dir = pushd( "t" );

-    is( canonpath( [ splitpath( cwd(), 1 ) ]->[1] ), 
-        $new_dir, 
...
+        canonpath( [ splitpath( $new_dir, 1 ) ]->[1] ), 
         "changed to new directory" 
     );

-use Cwd;
+use Cwd qw( cwd abs_path );
 use File::Spec;
-use File::Spec::Functions qw( canonpath splitpath );

-    is( canonpath( [ splitpath( cwd(),    1 ) ]->[1] ), 
-        canonpath( [ splitpath( $new_dir, 1 ) ]->[1] ), 
-        "changed to new directory" 
-    );
+    is( cwd(), abs_path( $new_dir ), "changed to new directory" );

-    my $new_dir = pushd( "t" );
+    my $new_dir = pushd( File::Spec->rootdir );