SPUG: Win32, use Cwd, and $ENV{PWD}

[Stuart Poulin]

This is a shame.  On Unix I use to use Cwd; and $ENV{PWD} to track the current
directory.  Doesn't seem to work on NT or Windows 98.

#!perl
# Windows 98 and NT

use Cwd qw(chdir cwd);
chdir('.');

chdir('D:\Perl');
print "PWD=$ENV{PWD}\n";
print "cwd='",cwd,"'\n\n";

chdir('D:\Perl');
print "PWD=$ENV{PWD}\n";
print "cwd='",cwd,"'\n\n";

__END__

PWD=D:/users/spoulin/tmp/D:\Perl
cwd='D:/Perl'

PWD=D:/Perl/D:\Perl
cwd='D:/Perl'


__________________________________________________
Do You Yahoo!?
Bid and sell for free at http://auctions.yahoo.com


 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    POST TO: spug-list at pm.org        PROBLEMS: owner-spug-list at pm.org
 Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/
 SUBSCRIBE/UNSUBSCRIBE: Replace ACTION below by subscribe or unsubscribe
        Email to majordomo at pm.org: ACTION spug-list your_address