diff options
| author | Graham Barr <gbarr@pobox.com> | 2004-03-20 10:31:19 +0000 |
|---|---|---|
| committer | Graham Barr <gbarr@pobox.com> | 2009-02-24 08:51:37 -0600 |
| commit | eab6aa0583260aea8826bb8fe1850f5d910de8d4 (patch) | |
| tree | dd24d96f1f7791587262d67bfc5c52753988efa0 | |
| parent | f9a6d6d3ebd172d482393bdd268bcbd2db174b7a (diff) | |
| download | perl-libnet-eab6aa0583260aea8826bb8fe1850f5d910de8d4.tar.gz | |
Suppress warning from -f if handle is not real (ie tied)
| -rw-r--r-- | Net/FTP.pm | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -725,7 +725,7 @@ sub _store_cmd # _store_cmd call, figure out if the local file is a regular file(not # a pipe, or device) and if so get the file size from stat, and send # an ALLO command before sending the STOR, STOU, or APPE command. - my $size = -f $local && -s _; # no ALLO if sending data from a pipe + my $size = do { local $^W; -f $local && -s _ }; # no ALLO if sending data from a pipe $ftp->_ALLO($size) if $size; } croak("Bad remote filename '$remote'\n") |