diff options
Diffstat (limited to 'ftp/mirror/files/patch-ac')
-rw-r--r-- | ftp/mirror/files/patch-ac | 53 |
1 files changed, 32 insertions, 21 deletions
diff --git a/ftp/mirror/files/patch-ac b/ftp/mirror/files/patch-ac index 427f851fb0e9..184a1905f9be 100644 --- a/ftp/mirror/files/patch-ac +++ b/ftp/mirror/files/patch-ac @@ -1,24 +1,35 @@ -*** mirror.pl.orig Sat Mar 16 15:46:09 1996 ---- mirror.pl Sat Mar 16 15:51:49 1996 +*** mirror.pl.orig Fri May 29 21:01:42 1998 +--- mirror.pl Mon Jun 8 14:36:52 1998 *************** -*** 75,81 **** - - # Try to find the default localation of various programs via +*** 1,4 **** +! #!/usr/bin/perl + # Make local directories mirror images of a remote sites + # + # +--- 1,4 ---- +! #!/usr/local/bin/perl5 + # Make local directories mirror images of a remote sites + # + # +*************** +*** 104,110 **** + # Try to find the default location of various programs via # the users PATH then using $extra_path -! $extra_path = '/usr/local/bin:/usr/new/bin:/usr/public/bin:/usr/ucb:/usr/bin:/bin:/etc:/usr/etc:/usr/local/etc'; - $ENV{ 'PATH' } .= ':' . $extra_path; - - &trap_signals(); ---- 75,81 ---- - - # Try to find the default localation of various programs via + if( ! $on_win ){ +! $extra_path = '/usr/local/bin:/usr/new/bin:/usr/public/bin:/usr/ucb:/usr/bin:/bin:/etc:/usr/etc:/usr/local/etc'; + } + if( $extra_path ne '' ){ + $ENV{ 'PATH' } .= $path_sep . $extra_path; +--- 104,110 ---- + # Try to find the default location of various programs via # the users PATH then using $extra_path -! $extra_path = '/bin:/sbin:/usr/bin:/usr/sbin:/usr/local/bin:/usr/local/sbin'; - $ENV{ 'PATH' } .= ':' . $extra_path; - - &trap_signals(); + if( ! $on_win ){ +! $extra_path = '/bin:/sbin:/usr/bin:/usr/sbin:/usr/local/bin:/usr/local/sbin'; + } + if( $extra_path ne '' ){ + $ENV{ 'PATH' } .= $path_sep . $extra_path; *************** -*** 128,146 **** +*** 159,177 **** $rm_prog = &find_prog( 'rm' ); # Generate checksums @@ -37,8 +48,8 @@ ! $dir = &real_dir_from_path( $0 ); unshift( @INC, $dir ); - # Make sure that your PERLLIB environment variable can get you ---- 128,147 ---- + # Debian GNU/Linux stores mirror.defaults in /etc/mirror +--- 159,178 ---- $rm_prog = &find_prog( 'rm' ); # Generate checksums @@ -55,7 +66,7 @@ # Put the directory that mirror is actually in at the start of PERLLIB. ! # $dir = &real_dir_from_path( $0 ); -! $dir = "!!PREFIX!!/lib/mirror"; +! $dir = "/usr/local/lib/mirror"; unshift( @INC, $dir ); - # Make sure that your PERLLIB environment variable can get you + # Debian GNU/Linux stores mirror.defaults in /etc/mirror |