Help for this page

Select Code to Download


  1. or download this
    sub _close {
  my $data = shift;
...
    if exists ${*$ftp}{'net_ftp_dataconn'}
    && $data == ${*$ftp}{'net_ftp_dataconn'};
  2. or download this
    $ perl -MNet::FTP -MNet::FTP::dataconn -le ' Net::FTP::dataconn->new->
+close '
Can't use an undefined value as a symbol reference at /usr/lib/perl5/5
+.10.0/Net/FTP/dataconn.pm line 54.