|
@ -52,14 +52,14 @@ sub ars { $ars = $_[0]; |
|
|
$filename = $ars->{filename}; |
|
|
$filename = $ars->{filename}; |
|
|
$filesystem_size = $ars->{filesystem_size}; |
|
|
$filesystem_size = $ars->{filesystem_size}; |
|
|
$kernel = $ars->{kernel}; |
|
|
$kernel = $ars->{kernel}; |
|
|
$template_dir = $ars->{template_directory}; |
|
|
$template_dir = $ars->{template_dir}; |
|
|
$template = $ars->{template}; |
|
|
$template = $ars->{template}; |
|
|
$tmp = $ars->{tmp}; |
|
|
$tmp = $ars->{tmp}; |
|
|
$mnt = $ars->{mnt}; |
|
|
$mnt = $ars->{mnt}; |
|
|
|
|
|
|
|
|
# Freshmeat comes here so the rest of the program needs |
|
|
# Freshmeat comes here so the rest of the program needs |
|
|
# to be warned when the template is coming from here. |
|
|
# 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 { |
|
|
sub check { |
|
|
|
|
|
|
|
|
$error = read_contents_file($changed_text); |
|
|
$error = read_contents_file("$template_dir$template"); |
|
|
return if $error && $error eq "ERROR"; |
|
|
return if $error && $error eq "ERROR"; |
|
|
|
|
|
|
|
|
} |
|
|
} |
|
@ -510,7 +510,7 @@ sub links_deps { |
|
|
$error = hard_links(); |
|
|
$error = hard_links(); |
|
|
return if $error && $error eq "ERROR"; |
|
|
return if $error && $error eq "ERROR"; |
|
|
|
|
|
|
|
|
$error = library_dependencies($changed_text); |
|
|
$error = library_dependencies("$template_dir$template"); |
|
|
return if $error && $error eq "ERROR"; |
|
|
return if $error && $error eq "ERROR"; |
|
|
|
|
|
|
|
|
} |
|
|
} |
|
@ -983,15 +983,15 @@ sub saved { |
|
|
"writable.\nUse [ File->Save As ] or " . |
|
|
"writable.\nUse [ File->Save As ] or " . |
|
|
"[Alt-S] with the yard suffix."); |
|
|
"[Alt-S] with the yard suffix."); |
|
|
} |
|
|
} |
|
|
else { |
|
|
else { |
|
|
# Here's where we get to undef Yard variable and start over at |
|
|
# Here's where we get to undef Yard variable and start over at |
|
|
# check |
|
|
# check |
|
|
my $new = "$template_dir$template" . ".new"; |
|
|
my $new = "$template_dir$template" . ".new"; |
|
|
open(NEW,">$new") or |
|
|
open(NEW,">$new") or |
|
|
($error = error("gBootRoot: ERROR: Can't create $new")); |
|
|
($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 |
|
|
rename($new, "$template_dir$template") or |
|
|
($error = error("gBootRoot: ERROR: Can't rename $new to " . |
|
|
($error = error("gBootRoot: ERROR: Can't rename $new to " . |
|
|
"$template_dir$template")); |
|
|
"$template_dir$template")); |
|
|