From 0ea451033ac04ca1af3346682b7745980627ff0f Mon Sep 17 00:00:00 2001
From: freesource <freesource>
Date: Tue, 21 Aug 2001 18:40:14 +0000
Subject: [PATCH] Now closes <F> after checking for compression.

---
 gbootroot | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/gbootroot b/gbootroot
index 844edf9..26d6be9 100755
--- a/gbootroot
+++ b/gbootroot
@@ -1321,6 +1321,7 @@ sub accept_button {
 			$entry3->set_text("$tmp/$entry_advanced[4]");
 		    }
 		}
+		close(F);
 		if ($ear2_save->active) {
 		    return if errcp(sys("cp -a $tmp/$entry_advanced[4] $home_rootfs")) == 2;
 		}
@@ -1341,6 +1342,7 @@ sub accept_button {
 			$entry3->set_text("$tmp/$entry_advanced[4]");
 		    }
 		}
+		close(F);
 		if ($ear2_save->active) {
 		    return if errcp(sys("cp -a $tmp/$entry_advanced[4] $home_rootfs")) == 2;
 		}
@@ -1735,6 +1737,7 @@ sub file_ok_sel {
 		    info(0, "Neither gz or bz2 compression found\n");
 		}
              }
+	   close(F);
         }
     }
 
@@ -1807,6 +1810,7 @@ sub entry {
 				      "Neither gz or bz2 compression found\n");
 			     }
                           }
+		       close(F);
                        }  
                      }
                  }