bike/gbootroot
1
0
Fork 0
mirror of https://github.com/fspc/gbootroot.git synced 2025-04-04 07:43:22 -04:00
Code Issues Projects Releases Wiki Activity

* This should work nicer.

Browse Source
This commit is contained in:
freesource 2000-12-23 08:12:32 +00:00
parent 3e29af76bf
commit 7e3c803b2a
2 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
YardBox.pm
View File

@ -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";
} }

2
gBootRoot
View File

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