| Subject: | Uninitialized cwd value |
If a Filesys::Virtual::Plain object is created with new() and there is
no cwd value specified, then the first time the cwd() method is called
there is an uninitialized variable warning:
Use of uninitialized value in string eq at
/Users/chris/perl/lib/perl5/site_perl/Filesys/Virtual/Plain.pm line 171.
To fix this, the following correction should be made. From:
$self->{cwd} = '/' if ($self->{cwd} eq '');
to
$self->{cwd} = '/' if (!defined $self->{cwd} ||
$self->{cwd} eq '');
--Chris