fix to 1.9
This commit is contained in:
parent
02940d9837
commit
c913f55d58
@ -1,36 +0,0 @@
|
||||
*** 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 = ()";
|
Loading…
x
Reference in New Issue
Block a user