- Upgrade to 2.9

- Use perl5

1 files changed, 12 insertions, 12 deletions

diff --git a/ftp/mirror/files/patch-ae b/ftp/mirror/files/patch-ae
index fbcf0ad24238..281d14cbb23b 100644
--- a/ftp/mirror/files/patch-ae
+++ b/ftp/mirror/files/patch-ae
@@ -1,19 +1,19 @@
-*** ftp.pl.orig	Tue May 23 23:53:25 1995
---- ftp.pl	Tue Nov 25 09:20:17 1997
+*** ftp.pl.orig	Mon Jun  8 14:11:39 1998
+--- ftp.pl	Mon Jun  8 14:11:42 1998
 ***************
-*** 430,436 ****
+*** 486,492 ****
   		return 0;
   	}
   	if( $ret == 1 ) {
-! 		$response =~ m/^227 Entering Passive Mode \((\d+),(\d+),(\d+),(\d+),(\d+),(\d+)\)$/;
-  		$newhost = sprintf( "%d.%d.%d.%d", $1, $2, $3, $4 );
-  		$newport = $5 * 256 + $6;
-  	}
---- 430,436 ----
+! 		if( $response =~ m/^227 Entering Passive Mode \((\d+),(\d+),(\d+),(\d+),(\d+),(\d+)\)/ ){
+  			$newhost = sprintf( "%d.%d.%d.%d", $1, $2, $3, $4 );
+  			$newport = $5 * 256 + $6;
+  		}
+--- 486,492 ----
   		return 0;
   	}
   	if( $ret == 1 ) {
-! 		$response =~ m/^227 .* \((\d+),(\d+),(\d+),(\d+),(\d+),(\d+)\)$/;
-  		$newhost = sprintf( "%d.%d.%d.%d", $1, $2, $3, $4 );
-  		$newport = $5 * 256 + $6;
-  	}
+! 		if( $response =~ m/^227 .* \((\d+),(\d+),(\d+),(\d+),(\d+),(\d+)\)/ ){
+  			$newhost = sprintf( "%d.%d.%d.%d", $1, $2, $3, $4 );
+  			$newport = $5 * 256 + $6;
+  		}