update Net::FTP fake package for installer

2 files changed, 120 insertions, 6 deletions

diff --git a/NEWS b/NEWS
index 136306e..059e2f2 100644
--- a/NEWS
+++ b/NEWS
@@ -1,3 +1,5 @@
+- update Net::FTP fake package for installer
+
 Version 1.2.17 - 19 March 2012, by Thierry Vignaud
 
 - fix Glib fake package causing perl_checker to show bogus "too many
diff --git a/fake_packages/Net/FTP.pm b/fake_packages/Net/FTP.pm
index e01695f..020bcda 100644
--- a/fake_packages/Net/FTP.pm
+++ b/fake_packages/Net/FTP.pm
@@ -1,9 +1,121 @@
 package Net::FTP;
+our @ISA = qw();
+sub DESTROY() {}
+sub _ABOR() {}
+sub _ACCT() {}
+sub _ALLO() {}
+sub _APPE() {}
+sub _AUTH() {}
+sub _CDUP() {}
+sub _CWD() {}
+sub _DELE() {}
+sub _FEAT() {}
+sub _HELP() {}
+sub _LIST() {}
+sub _MDTM() {}
+sub _MKD() {}
+sub _MODE() {}
+sub _NLST() {}
+sub _NOOP() {}
+sub _PASS() {}
+sub _PASV() {}
+sub _PORT() {}
+sub _PWD() {}
+sub _QUIT() {}
+sub _REIN() {}
+sub _RESP() {}
+sub _REST() {}
+sub _RETR() {}
+sub _RMD() {}
+sub _RNFR() {}
+sub _RNTO() {}
+sub _SIZE() {}
+sub _SMNT() {}
+sub _STAT() {}
+sub _STOR() {}
+sub _STOU() {}
+sub _STRU() {}
+sub _SYST() {}
+sub _TYPE() {}
+sub _USER() {}
+sub _auth_id { my ($_ftp, $_auth, $_o_resp) = @_ }
+sub _data_cmd() {}
+sub _dataconn() {}
+sub _extract_path { my ($_ftp, $_o_path) = @_ }
+sub _list_cmd() {}
+sub _store_cmd { my ($_ftp, $_cmd, $_local, $_o_remote) = @_ }
+sub abort() {}
+sub account() {}
+sub alloc() {}
+sub appe() {}
+sub append() {}
+sub ascii() {}
+sub authorise() {}
+sub authorize() {}
+sub binary() {}
+sub byte() {}
+sub cdup() {}
+sub cmd() {}
+sub command() {}
+sub cwd { my ($_ftp, $_o_dir) = @_ }
+sub debug_text() {}
+sub delete() {}
+sub dir() {}
+sub ebcdic() {}
+sub feature { my ($_ftp, $_o_feat) = @_ }
+sub get { my ($_ftp, $_remote, $_local, $_o_where) = @_ }
+sub hash { my ($_h, $_o_b) = @_ }
+sub host() {}
+sub list() {}
+sub login { my ($_ftp, $_user, $_pass, $_o_acct) = @_ }
+sub ls() {}
+sub lsl() {}
+sub mdtm() {}
+sub mkdir { my ($_ftp, $_dir, $_o_recurse) = @_ }
+sub new { my (@_more_paras) = @_ }
+sub nlst() {}
+sub parse_response() {}
+sub pasv() {}
+sub pasv_wait { my ($_ftp, $_o_non_pasv) = @_ }
+sub pasv_xfer { my ($_sftp, $_sfile, $_dftp, $_dfile, $_o_unique) = @_ }
+sub pasv_xfer_unique { my ($_sftp, $_sfile, $_dftp, $_o_dfile) = @_ }
+sub port { my ($_ftp, $_o_port) = @_ }
+sub put() {}
+sub put_unique() {}
+sub pwd() {}
+sub quit() {}
+sub quot() {}
+sub rename { my ($_ftp, $_from, $_o_to) = @_ }
+sub response() {}
+sub restart { my ($_ftp, $_o_where) = @_ }
+sub retr() {}
+sub rmdir { my ($_ftp, $_dir, $_o_recurse) = @_ }
+sub site() {}
+sub size { my ($_ftp, $_o_file) = @_ }
+sub stor() {}
+sub stou() {}
+sub supported() {}
+sub type() {}
+sub unique_name() {}
 
-sub new {}
+package Net::FTP::A;
+our @ISA = qw();
+sub read { my ($_o_timeout) = @_ }
+sub write { my ($_o_timeout) = @_ }
 
-sub login {}
-sub binary {}
-sub cwd {}
-sub retr {}
-sub code {}
+package Net::FTP::I;
+our @ISA = qw();
+sub read { my ($_o_timeout) = @_ }
+sub write { my ($_o_timeout) = @_ }
+
+package Net::FTP::dataconn;
+our @ISA = qw();
+sub _close() {}
+sub _select { my ($_data, $_timeout, $_o_do_read) = @_ }
+sub abort() {}
+sub bytes_read() {}
+sub can_read() {}
+sub can_write() {}
+sub close() {}
+sub cmd() {}
+sub reading() {}