OS/2 Shareware BBS: 10 Tools/10-Tools.zip/perl_ste.zip/auto/Net/FTP/response.al

Text File | 1997-11-28 | 279b | 16 lines

# NOTE: Derived from ./blib/lib/Net/FTP.pm.  Changes made here will be lost.
package Net::FTP;

sub response
{
 my $ftp = shift;
 my $code = $ftp->SUPER::response();

 delete ${*$ftp}{'net_ftp_pasv'}
    if ($code != CMD_MORE && $code != CMD_INFO);

 $code;
}

1;