I got the following when using File::Copy (version 1.5)
Use of uninitialized value at
/usr/local/mhg/sparc-sun-sunos4.1/lib/perl-5.003/File/Copy.pm line 84.
This comes from the following sections of code:
33> my $to = shift;
34> my $recsep = $\;
35> my $closefrom=0;
36> my $closeto=0;
37> my ($size, $status, $r, $buf);
38> local(*FROM, *TO);
39>
40> $\ = '';
<*skip*>
83> close(FROM) || goto fail_open1 if $closefrom;
84> $\ = $recsep;
85> return 1;
This warning also occured only once, though the copy command was
invoked multiple times. I attempted to get around this, assuming
that the fault was that the value of $/ was undef, by using the
following in my own code:
$/ = '';
if (!copy($source,$dest)) {
print STDERR "Copy of $source to $dest failed: $!\n";
}
It didn't help. Anybody know why this warning is occuring and what
I should do about it?
In case it's useful, I'm using perl-5.003 on a SunOS4.1.3 machine.
--
Andrew D. Arenson | http://www.*-*-*.com/ :8088/cgi-bin/andy/andy
Genome Sequencing Center, Molecular & Human Genetics Dept. | W 798-4689
One Baylor Plaza, Room S903, Houston, TX 77030 | F 798-5386