|
Lines 636-642
Link Here
|
| 636 |
elsif ($opt{method} eq 'scp') |
636 |
elsif ($opt{method} eq 'scp') |
| 637 |
{ |
637 |
{ |
| 638 |
my $tmp=$tmpfile; |
638 |
my $tmp=$tmpfile; |
| 639 |
open(OUTPUT,">$tmp") || die "Can\'t create file $tmp: $!\n"; |
639 |
use Fcntl; |
|
|
640 |
sysopen(OUTPUT,$tmp,O_WRONLY|O_EXCL|O_CREAT) || die "Can\'t create file $tmp: $!\n"; |
| 640 |
if (syswrite(OUTPUT,$buff) != length($buff)) |
641 |
if (syswrite(OUTPUT,$buff) != length($buff)) |
| 641 |
{ |
642 |
{ |
| 642 |
die "Error when writing data to $tmp: $!\n"; |
643 |
die "Error when writing data to $tmp: $!\n"; |
