fix typo that caused INSTALLPRIVLIB to have doubled 'perl5'

[p5sagit/p5-mst-13.2.git] / lib / ftp.pl

diff --git a/lib/ftp.pl b/lib/ftp.pl
index bfddcb8..aa6a489 100644 (file)
--- a/lib/ftp.pl
+++ b/lib/ftp.pl
@@ -1,4 +1,13 @@
 #-*-perl-*-
+#
+# This library is no longer being maintained, and is included for backward
+# compatibility with Perl 4 programs which may require it.
+#
+# In particular, this should not be used as an example of modern Perl
+# programming techniques.
+#
+# Suggested alternative: Net::FTP
+#
 # This is a wrapper to the chat2.pl routines that make life easier
 # to do ftp type work.
 # Mostly by Lee McLoughlin <lmjm@doc.ic.ac.uk>
@@ -88,8 +97,9 @@
 # Initial revision
 #
 
-require 'chat2.pl';
-eval "require 'socket.ph'" || eval "require 'sys/socket.ph'" || die "socket.ph missing: $!\n";
+require 'chat2.pl';    # into main
+eval "require 'socket.ph'" || eval "require 'sys/socket.ph'"
+       || die "socket.ph missing: $!\n";
 
 
 package ftp;
@@ -140,7 +150,7 @@ $real_site = "";
 $ftp_show = 0;
 sub ftp'debug
 {
-       $ftp_show = @_[0];
+       $ftp_show = $_[0];
 #      if( $ftp_show ){
 #              print STDERR "ftp debugging on\n";
 #      }
@@ -148,7 +158,7 @@ sub ftp'debug
 
 sub ftp'set_timeout
 {
-       $timeout = @_[0];
+       $timeout = $_[0];
        $timeout_open = $timeout;
        $timeout_read = 20 * $timeout;
        if( $ftp_show ){