summaryrefslogtreecommitdiff
path: root/debtransform
diff options
context:
space:
mode:
Diffstat (limited to 'debtransform')
-rwxr-xr-xdebtransform10
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};