net/mirror/patches/patch-ad


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36

*** mirror.pl.orig	Sat Aug 10 12:28:16 1996
--- mirror.pl	Sat Aug 10 12:28:54 1996
***************
*** 3228,3234 ****
  
  	&msg( "creating assocs ...\n" ) if $debug > 2;
  	foreach $map ( @assocs ){
! 		eval "\$$map = \"\$big_tmp/$map.$$\"";
  		eval "dbmopen( $map, \$$map, 0644 )";
  	}
  	&msg( "creating assocs done\n" ) if $debug > 2;
--- 3228,3234 ----
  
  	&msg( "creating assocs ...\n" ) if $debug > 2;
  	foreach $map ( @assocs ){
! 		eval "\$$map = \"\$big_temp/$map.$$\"";
  		eval "dbmopen( $map, \$$map, 0644 )";
  	}
  	&msg( "creating assocs done\n" ) if $debug > 2;
***************
*** 3240,3246 ****
  
  	&msg( "deleting assocs ...\n" ) if $debug > 2;
  	foreach $map ( @assocs ){
! 		eval "\$$map = \"\$big_tmp/$map.$$\"";
  		eval "dbmclose( $map )";
  		&unlink_dbm( eval "\$$map" );
  		eval "\%$map = ()";
--- 3240,3246 ----
  
  	&msg( "deleting assocs ...\n" ) if $debug > 2;
  	foreach $map ( @assocs ){
! 		eval "\$$map = \"\$big_temp/$map.$$\"";
  		eval "dbmclose( $map )";
  		&unlink_dbm( eval "\$$map" );
  		eval "\%$map = ()";