fix to 1.9

This commit is contained in:
form 1998-06-10 10:29:02 +00:00
parent 02940d9837
commit c913f55d58

View File

@ -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 = ()";