- Timestamp:
- 02/23/06 18:04:45 (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/debbuild
r42 r43 909 909 910 910 print "Checking library requirements...\n"; 911 my @binlist = qx { find $pkgtree -type f -perm 755 | grep -v $pkgtree/etc};911 my @binlist = qx { find $pkgtree -type f -perm 755 }; 912 912 913 913 if (scalar(@binlist) == 0) { … … 930 930 931 931 my %reqs; 932 my $reqlibs ;932 my $reqlibs = ''; 933 933 934 934 foreach (@reqlist) { … … 948 948 } 949 949 950 foreach (qx { dpkg -S $reqlibs }) { 951 my ($libpkg,undef) = split /:\s+/; 952 $reqs{$libpkg} = 1; 953 } 954 955 my $deplist; 950 if ($reqlibs ne '') { 951 foreach (qx { dpkg -S $reqlibs }) { 952 my ($libpkg,undef) = split /:\s+/; 953 $reqs{$libpkg} = 1; 954 } 955 } 956 957 my $deplist = ''; 956 958 foreach (keys %reqs) { 957 959 $deplist .= ", $_";
Note:
See TracChangeset
for help on using the changeset viewer.