diff options
| author | Jarkko Hietaniemi <jhi@cc.hut.fi> | 1997-01-02 17:27:47 +1200 |
|---|---|---|
| committer | Chip Salzenberg <chip@atlantic.net> | 1997-01-04 17:44:00 +1200 |
| commit | 40da2db335c65d50d3bca886fcc7161ed72faf74 (patch) | |
| tree | 7fa3e6ca078a9a52592d28bd05a7f99be1af6544 /lib/ftp.pl | |
| parent | 5377b7012ceb2c72202db969f3b51a017f9551a9 (diff) | |
| download | perl-40da2db335c65d50d3bca886fcc7161ed72faf74.tar.gz | |
Make libs clean under '-w'
Diffstat (limited to 'lib/ftp.pl')
| -rw-r--r-- | lib/ftp.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/ftp.pl b/lib/ftp.pl index bfddcb8837..9528360da2 100644 --- a/lib/ftp.pl +++ b/lib/ftp.pl @@ -140,7 +140,7 @@ $real_site = ""; $ftp_show = 0; sub ftp'debug { - $ftp_show = @_[0]; + $ftp_show = $_[0]; # if( $ftp_show ){ # print STDERR "ftp debugging on\n"; # } @@ -148,7 +148,7 @@ sub ftp'debug sub ftp'set_timeout { - $timeout = @_[0]; + $timeout = $_[0]; $timeout_open = $timeout; $timeout_read = 20 * $timeout; if( $ftp_show ){ |