diff options
Diffstat (limited to 'debtransform')
-rwxr-xr-x | debtransform | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/debtransform b/debtransform index 0ef2692..087f5e8 100755 --- a/debtransform +++ b/debtransform @@ -63,8 +63,14 @@ sub listtar { next unless /^([-dlbcp])(.........)\s+\d+\/\d+\s+(\S+) \d\d\d\d-\d\d-\d\d \d\d:\d\d(?::\d\d)? (.*)$/; my ($type, $mode, $size, $name) = ($1, $2, $3, $4); next if $type eq 'd'; - die("debian tar contains link: $name\n") if $type eq 'l'; - die("debian tar contains unexpected file type: $name\n") if $type ne '-'; + if ($type eq 'l') { + next if $skipdebiandir eq 0; + die("debian tar contains link: $name\n"); + } + if ($type ne '-') { + next if $skipdebiandir eq 0; + die("debian tar contains unexpected file type: $name\n"); + } $name =~ s/^\.\///; $name =~ s/^debian\/// if $skipdebiandir eq 1; push @c, {'name' => $name, 'size' => $size}; |