|
@ -485,6 +485,9 @@ sub read_contents_file { |
|
|
} |
|
|
} |
|
|
} |
|
|
} |
|
|
} # End of FILE loop |
|
|
} # End of FILE loop |
|
|
|
|
|
|
|
|
|
|
|
while (Gtk->events_pending) { Gtk->main_iteration; } |
|
|
|
|
|
|
|
|
} # End of LINE loop |
|
|
} # End of LINE loop |
|
|
|
|
|
|
|
|
|
|
|
|
|
@ -492,7 +495,7 @@ sub read_contents_file { |
|
|
close(DEVICE_TABLE); |
|
|
close(DEVICE_TABLE); |
|
|
} |
|
|
} |
|
|
|
|
|
|
|
|
info(0, "\nDone with $contents_file\n\n"); |
|
|
info(0, "\nDone with Check stage for $contents_file\n\n"); |
|
|
close(CONTENTS) or ($error = error("close on $contents_file: $!")); |
|
|
close(CONTENTS) or ($error = error("close on $contents_file: $!")); |
|
|
return "ERROR"if $error && $error eq "ERROR"; |
|
|
return "ERROR"if $error && $error eq "ERROR"; |
|
|
|
|
|
|
|
@ -563,6 +566,8 @@ sub extra_links { |
|
|
} |
|
|
} |
|
|
} |
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
while (Gtk->events_pending) { Gtk->main_iteration; } |
|
|
|
|
|
|
|
|
} # for loop |
|
|
} # for loop |
|
|
|
|
|
|
|
|
} # end for nss pam |
|
|
} # end for nss pam |
|
@ -573,6 +578,8 @@ sub extra_links { |
|
|
|
|
|
|
|
|
# watch for "" - freesource |
|
|
# watch for "" - freesource |
|
|
include_file($contents_file, $file) if $file ne ""; |
|
|
include_file($contents_file, $file) if $file ne ""; |
|
|
|
|
|
while (Gtk->events_pending) { Gtk->main_iteration; } |
|
|
|
|
|
|
|
|
} |
|
|
} |
|
|
|
|
|
|
|
|
%Included = (%Included, %user_defined_link); # --freesource |
|
|
%Included = (%Included, %user_defined_link); # --freesource |
|
@ -703,6 +710,9 @@ sub library_dependencies { |
|
|
push(@{$lib_needed_by{$abs_lib}}, $file); |
|
|
push(@{$lib_needed_by{$abs_lib}}, $file); |
|
|
} |
|
|
} |
|
|
} |
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
while (Gtk->events_pending) { Gtk->main_iteration; } |
|
|
|
|
|
|
|
|
} |
|
|
} |
|
|
|
|
|
|
|
|
#################################### |
|
|
#################################### |
|
@ -779,6 +789,8 @@ sub library_dependencies { |
|
|
##### eg, $full_name{"libc.so"} = "/lib/libc.so.5.2.18" |
|
|
##### eg, $full_name{"libc.so"} = "/lib/libc.so.5.2.18" |
|
|
$full_name{$lib_stem} = $lib; |
|
|
$full_name{$lib_stem} = $lib; |
|
|
} |
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
while (Gtk->events_pending) { Gtk->main_iteration; } |
|
|
} |
|
|
} |
|
|
} |
|
|
} |
|
|
|
|
|
|
|
@ -842,6 +854,9 @@ sub hard_links { |
|
|
$hardlinked{$file} = "$dev/$inode"; |
|
|
$hardlinked{$file} = "$dev/$inode"; |
|
|
} |
|
|
} |
|
|
} |
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
while (Gtk->events_pending) { Gtk->main_iteration; } |
|
|
|
|
|
|
|
|
} |
|
|
} |
|
|
|
|
|
|
|
|
info(0, "Done.\n\n"); |
|
|
info(0, "Done.\n\n"); |
|
@ -1186,6 +1201,8 @@ sub create_filesystem { |
|
|
} |
|
|
} |
|
|
} |
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
while (Gtk->events_pending) { Gtk->main_iteration; } |
|
|
|
|
|
|
|
|
} |
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
|
|
@ -1228,6 +1245,8 @@ sub create_filesystem { |
|
|
|
|
|
|
|
|
} |
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
while (Gtk->events_pending) { Gtk->main_iteration; } |
|
|
|
|
|
|
|
|
} |
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
|
|
@ -1293,6 +1312,9 @@ sub create_filesystem { |
|
|
# The 'R' flag here allows cp command to handle devices and FIFOs. |
|
|
# The 'R' flag here allows cp command to handle devices and FIFOs. |
|
|
sys("cp -dpR $file $floppy_file"); |
|
|
sys("cp -dpR $file $floppy_file"); |
|
|
} |
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
while (Gtk->events_pending) { Gtk->main_iteration; } |
|
|
|
|
|
|
|
|
} |
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
|
|
@ -1393,6 +1415,9 @@ sub include_file { |
|
|
} |
|
|
} |
|
|
} |
|
|
} |
|
|
$file = $abs_target; # For next iteration of while loop |
|
|
$file = $abs_target; # For next iteration of while loop |
|
|
|
|
|
|
|
|
|
|
|
##while (Gtk->events_pending) { Gtk->main_iteration; } |
|
|
|
|
|
|
|
|
} |
|
|
} |
|
|
} |
|
|
} |
|
|
|
|
|
|
|
|