diff options
| author | Graham Barr <gbarr@pobox.com> | 2003-05-20 11:00:29 +0000 |
|---|---|---|
| committer | Graham Barr <gbarr@pobox.com> | 2003-05-20 11:00:29 +0000 |
| commit | 140a1182bfc7f97afce0d1114a56826b24a4d85d (patch) | |
| tree | 9569822f0f99540f87515a8efcfbfefaefbd9853 | |
| parent | 1a1f5417e3dc1dbad9515a85cabefb464ed6dcc4 (diff) | |
| download | perl-libnet-140a1182bfc7f97afce0d1114a56826b24a4d85d.tar.gz | |
Net::FTP
- Allow the firewall type to be specified in Net::Config (patch from Philip Newton)
| -rw-r--r-- | Net/FTP.pm | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -22,7 +22,7 @@ use Net::Config; use Fcntl qw(O_WRONLY O_RDONLY O_APPEND O_CREAT O_TRUNC); # use AutoLoader qw(AUTOLOAD); -$VERSION = "2.67"; # $Id: //depot/libnet/Net/FTP.pm#70 $ +$VERSION = "2.68"; # $Id: //depot/libnet/Net/FTP.pm#71 $ @ISA = qw(Exporter Net::Cmd IO::Socket::INET); # Someday I will "use constant", when I am not bothered to much about @@ -70,6 +70,7 @@ sub new delete $arg{Port}; $fire_type = $arg{FirewallType} || $ENV{FTP_FIREWALL_TYPE} + || $NetConfig{firewall_type} || undef; } } @@ -1720,6 +1721,6 @@ under the same terms as Perl itself. =for html <hr> -I<$Id: //depot/libnet/Net/FTP.pm#70 $> +I<$Id: //depot/libnet/Net/FTP.pm#71 $> =cut |