Browse Source

* This should work nicer.

master
freesource 24 years ago
parent
commit
7e3c803b2a
  1. 16
      YardBox.pm
  2. 2
      gBootRoot

16
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";
}
@ -983,15 +983,15 @@ sub saved {
"writable.\nUse [ File->Save As ] or " .
"[Alt-S] with the yard suffix.");
}
else {
else {
# Here's where we get to undef Yard variable and start over at
# check
my $new = "$template_dir$template" . ".new";
open(NEW,">$new") or
($error = error("gBootRoot: ERROR: Can't create $new"));
return if $error && $error eq "ERROR";
print NEW $changed_text;
close(NEW);
return if $error && $error eq "ERROR";
print NEW $changed_text;
close(NEW);
rename($new, "$template_dir$template") or
($error = error("gBootRoot: ERROR: Can't rename $new to " .
"$template_dir$template"));

2
gBootRoot

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

Loading…
Cancel
Save