set -e
. tests/lib
-t-restriction-x-dgit-intree-only
+t-restrict x-dgit-intree-only
# we need the .pod source, which is not shipped
cd $tmp
: ----- extract args from dgit -----
-perl -ne '
- next unless m/^\s*our\s+\@dpkg_source_ignores\s*=/;
- print;
-' $root/dgit >dgit.pl
+args=$( t-dgit print-dpkg-source-ignores )
-cat >>dgit.pl <<'END'
- foreach my $arg (@dpkg_source_ignores) {
- print $arg, "\n" or die $!;
- }
-END
-
-perl dgit.pl >dgit.args
+>dgit.args
+for arg in $args; do
+ printf >>dgit.args "%s\n" "$arg"
+done
: ----- compare -----