bike/gbootroot
1
0
Fork 0
mirror of https://github.com/fspc/gbootroot.git synced 2025-02-23 00:53:23 -05:00
Code Issues Projects Releases Wiki Activity

* Started Yard Box.

Browse Source 
* Changed order of Checks.
This commit is contained in:
freesource 2000-12-04 05:25:36 +00:00
parent 53f0be257c
commit 24cecc04e4
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
Yard.pm
View File

@ -299,7 +299,7 @@ sub library_dependencies {
my ($contents_file) = @_;
my $error;
info(0, "PASS 3: Checking library dependencies...\n");
info(0, "PASS 4: Checking library dependencies...\n");
info(1, "(Ignore any 'statically linked' messages.)\n");
# Normal file X: X in %Included.
@ -489,7 +489,7 @@ sub library_dependencies {
sub hard_links {
info(0, "PASS 4: Recording hard links...\n");
info(0, "PASS 3: Recording hard links...\n");
##### Finally, scan all files for hard links.
@ -503,6 +503,7 @@ sub hard_links {
if (-f $file) {
my($dev, $inode, $mode, $nlink) = stat(_);
if ($nlink > 1) {
info(1,"$file is hardlinked\n");
$hardlinked{$file} = "$dev/$inode";
}
}
@ -725,6 +726,9 @@ sub space_check {
info(0, "Total space needed is ", bytes_to_K($total_bytes), " Kbytes\n");
## One interesting thought: This isn't looking at the penalty for
## ext2 filesystem info .. and other filesystems may be allowed in the
## future. 8192 inodes == 1.63% penalty or at iso9660
if (bytes_to_K($total_bytes) > $fs_size) {
info(0, "This is more than $fs_size Kbytes allowed.\n");
return;
@ -1138,7 +1142,7 @@ sub sync {
system("sync") and die "Couldn't sync!";
}
## Need to put error() checking here
# find_file_in_path(file, path)
# Finds filename in path. Path defaults to @pathlist if not provided.
# If file is relative, file is resolved relative to config_dest and lib_dest.