From 0052df1d3ffb4629e021df8a118e10e7bb3c9d96 Mon Sep 17 00:00:00 2001
From: freesource <freesource>
Date: Wed, 22 Aug 2001 16:31:26 +0000
Subject: [PATCH] Global values are cleared when a new template in invocated.

---
 BootRoot/Yard.pm | 17 ++++++++++++++++-
 1 file changed, 16 insertions(+), 1 deletion(-)

diff --git a/BootRoot/Yard.pm b/BootRoot/Yard.pm
index 7a7f70c..7c229b5 100644
--- a/BootRoot/Yard.pm
+++ b/BootRoot/Yard.pm
@@ -58,7 +58,7 @@ my $verbosity;
 my ($text_insert,$red,$blue); 
 my $logadj;
 my ($device, $mount_point);
-
+my $contents_file_tmp; # Checks for template name change
 
 # This solves an annoying problem with the new Perl-5.6 built in glob,
 # allowing earlier versions of Perl to run.
@@ -139,6 +139,18 @@ sub read_contents_file {
     # It's a good idea to clear the text buffer in the verbosity box
     $text_insert->backward_delete($text_insert->get_length());
 
+    # If the template changes it is time to clear all the values.
+    if ($contents_file_tmp ne $contents_file) {
+	undef %Included; 
+	undef %replaced_by;
+	undef %links_to;
+	undef %is_module;
+	undef %hardlinked;
+	undef %strippable;
+	undef %lib_needed_by;
+	undef @Libs;
+    }
+    $contents_file_tmp = $contents_file;
 
     info(0, "\n\nPASS 1:  Reading $contents_file");
     info(0, "\n");
@@ -240,6 +252,7 @@ sub read_contents_file {
     }
 
       my($file);
+
     FILE: foreach $file (@files) {
 
 	if ($file =~ m|^/|) {	#####  Absolute filename
@@ -873,6 +886,8 @@ sub create_filesystem {
 
 	} elsif (-f $file) {
 	    #####  A normal file.
+	    ## File::Path likes to die when the device runs out of space,
+	    ## something which will have to be worked on.
 	    mkpath(dirname($floppy_file));
 
 	    #####  Maybe a hard link.