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

Text File | 1997-11-28 | 286b | 18 lines

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

sub cwd
{
 @_ == 2 || @_ == 3 or croak 'usage: $ftp->cwd( [ DIR ] )';

 my($ftp,$dir) = @_;

 $dir ||= "/";

 $dir eq ".."
    ? $ftp->_CDUP()
    : $ftp->_CWD($dir);
}

1;