At 19:50 +0200 2001.06.07, Thomas Wegner wrote:
>Looking again at Dir.pm and remembering your reply concerning File::Copy, I
>think we should really add the following to open()
>
>
> sub open {
> @_ == 2 or croak 'usage: $dh->open(DIRNAME)';
> my ($dh, $dirname) = @_;
> return undef
> unless opendir($dh, $dirname);
> $dirname = ':' . $dirname if ( ($^O eq 'MacOS') && ($dirname =~
>/^[^:]+$/) ); # added
> ${*$dh}{io_dir_path} = $dirname;
> }
> 1;
> }
>
>
>
>to avoid that "dirname in the current directory" trap. Do you agree?
Hm. Can you give an example of when it is required to have this? I am
having trouble right now thinking of one.
--
Chris Nandor [EMAIL PROTECTED] http://pudge.net/
Open Source Development Network [EMAIL PROTECTED] http://osdn.com/
