corrected code comments and added two new

diff --git a/cultivate.pl b/cultivate.pl
index a7a57ff333276f12aef7546cd81d17c26ddd2c9e..bf5ae8a86ac26f2a1257920fbaa0a1232ddd780f 100644 (file)
--- a/cultivate.pl
+++ b/cultivate.pl
@@ -37,8 +37,8 @@ if($vitality > $used_spc){
        close(SRC);
        close(DES);
 
        close(SRC);
        close(DES);
 

-       # child needs to have its name replaced in line 7
-       # this string contains line 7 of this bacteria, except for the name 
+       # child needs to have its name replaced in line 12
+       # this string contains line 12 of this bacteria, except for the name 

        my $rpl_text = 'my $src =' . '\'' . $rndname . '\';';
 
        # read newly created bacteria content into an array
        my $rpl_text = 'my $src =' . '\'' . $rndname . '\';';
 
        # read newly created bacteria content into an array


@@ -62,6 +62,7 @@ if($vitality > $used_spc){
     }
 }else{
     # bacteria has not enough place to survive
     }
 }else{
     # bacteria has not enough place to survive

+    # UNCOMMENT TO DELETE BACTERIA IF THERE IS NO PLACE ON DISK

     #unlink("$src");
 }
 
     #unlink("$src");
 }
 


@@ -74,6 +75,7 @@ print $fh $DNA;
 close($fh);
 
 # bacteria dies at the end of its life
 close($fh);
 
 # bacteria dies at the end of its life

+# UNCOMMENT TO DELETE BACTERIA WHEN FINISHED

 #unlink("$src");
 
 
 #unlink("$src");