* This should work nicer.

YardBox.pm

@@ -52,14 +52,14 @@ sub ars { $ars = $_[0];
 $filename         = $ars->{filename};
 $filesystem_size  = $ars->{filesystem_size};
 $kernel           = $ars->{kernel};
-$template_dir     = $ars->{template_directory};
+$template_dir     = $ars->{template_dir};
 $template         = $ars->{template};
 $tmp              = $ars->{tmp};
 $mnt              = $ars->{mnt};
 
 # Freshmeat comes here so the rest of the program needs
 # to be warned when the template is coming from here.
-$changed_text = "$template_dir$template";
+$changed_text = "$template_dir$template" if $template;
 
 }
 
@@ -497,7 +497,7 @@ sub continue {
 
 sub check {
     
-    $error = read_contents_file($changed_text);
+    $error = read_contents_file("$template_dir$template");
     return if $error && $error eq "ERROR";
 
 }
@@ -510,7 +510,7 @@ sub links_deps {
     $error = hard_links();
     return if $error && $error eq "ERROR";
 
-    $error = library_dependencies($changed_text);
+    $error = library_dependencies("$template_dir$template");
     return if $error && $error eq "ERROR";
 
 }
@@ -989,9 +989,9 @@ sub saved {
 	    my $new = "$template_dir$template" . ".new";
 	    open(NEW,">$new") or 
 		($error = error("gBootRoot: ERROR: Can't create $new"));
-		return if $error && $error eq "ERROR";    
+	    return if $error && $error eq "ERROR";    
-	        print NEW $changed_text;
+	    print NEW $changed_text;
-	        close(NEW);
+	    close(NEW);
 	    rename($new, "$template_dir$template") or
 		($error = error("gBootRoot: ERROR: Can't rename $new to " .
 				"$template_dir$template"));

gBootRoot

@@ -988,6 +988,8 @@ sub Generate {
     $ars->{template_dir}   = $template_dir; # static right now.
     ars($ars);
 
+    print %$ars;
+
 =pod
 
     foreach (%$ars) {