> diff -uBb lib/File/Temp.pm-orig lib/File/Temp.pm
> --- lib/File/Temp.pm-orig Mon Oct 9 13:31:35 2000
> +++ lib/File/Temp.pm Mon Oct 9 13:29:43 2000
> @@ -340,6 +339,7 @@
>
> if ($^O eq 'VMS') { # need volume to avoid relative dir spec
> $parent = File::Spec->catdir($volume, @dirs[0..$#dirs-1]);
> + $parent = 'sys$disk:[]' if $parent eq '';
Could this be a File::Spec fix?
--
$jhi++; # http://www.iki.fi/jhi/
# There is this special biologist word we use for 'stable'.
# It is 'dead'. -- Jack Cohen
