diff options
author | Michal Marek <mmarek@suse.cz> | 2008-04-08 13:21:12 +0000 |
---|---|---|
committer | Michal Marek <mmarek@suse.cz> | 2008-04-08 13:21:12 +0000 |
commit | c42dc4567e3048f334429c50cba0abfe6d227037 (patch) | |
tree | 2214c0a39d57dc1627a4db74a93c3b0fb80e0bf6 /createrpmdeps | |
parent | 5b81f853efe79912a5f3e1b526f3be51b0d86a2c (diff) |
make it work with new findutils
Diffstat (limited to 'createrpmdeps')
-rwxr-xr-x | createrpmdeps | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/createrpmdeps b/createrpmdeps index 4a13686..ba30c42 100755 --- a/createrpmdeps +++ b/createrpmdeps @@ -38,9 +38,11 @@ foreach my $dir (@ARGV) { open(F, '-|', $cmd) or next; while (<F>) { chomp; - next unless /^(\d+\/\d+\/\d+) (.*)$/; + next unless /^([\d\.]+\/\d+\/\d+) (.*)$/; my $id = $1; my $path = $2; + # new find added a fraction part to %T@, ignore it + $id =~ s/^(\d+)\.\d+/$1/; next unless $path =~ /\.(?:rpm|deb)$/; my $fn = $path; $fn =~ s/.*\///; |