Do not report the (irrelevant) $? when madison parsing fails.

[dgit.git] / dgit

diff --git a/dgit b/dgit
index 94454d33170b15546c42f0d42c77f27d0453ba7f..19d6b0113798525c02775eabd9fd137c878a3293 100755 (executable)
--- a/dgit
+++ b/dgit
@@ -636,7 +636,7 @@ sub madison_parse ($) {
        $l =~ m{^ \s*( [^ \t|]+ )\s* \|
                   \s*( [^ \t|]+ )\s* \|
                   \s*( [^ \t|/]+ )(?:/([^ \t|/]+))? \s* \|
-                  \s*( [^ \t|]+ )\s* }x or die "$rmad $?";
+                  \s*( [^ \t|]+ )\s* }x or die "$rmad ?";
        $1 eq $package or die "$rmad $package ?";
        my $vsn = $2;
        my $newsuite = $3;