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

Text File | 1997-11-28 | 246b | 13 lines

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

sub account
{
 @_ == 2 or croak 'usage: $ftp->account( ACCT )';
 my $ftp = shift;
 my $acct = shift;
 $ftp->_ACCT($acct) == CMD_OK;
}

1;