diff options
| author | Graham Barr <gbarr@pobox.com> | 2008-02-10 00:14:29 +0000 |
|---|---|---|
| committer | Graham Barr <gbarr@pobox.com> | 2009-02-24 10:40:49 -0600 |
| commit | 4850c165866e39532b0dcce59e67aae5af9a65ea (patch) | |
| tree | 0b69518aae79e14da89522e3cfbc7488ac03a20a | |
| parent | cd6f1d18524cbbda5c2f7ca4e338ac1f2be45f8e (diff) | |
| download | perl-libnet-4850c165866e39532b0dcce59e67aae5af9a65ea.tar.gz | |
Make ->supported check ->feature
| -rw-r--r-- | Net/FTP.pm | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -858,6 +858,9 @@ sub supported { return $hash->{$cmd} if exists $hash->{$cmd}; + return $hash->{$cmd} = 1 + if $ftp->feature($cmd); + return $hash->{$cmd} = 0 unless $ftp->_HELP($cmd); |