tests: Break out t-chain-test

[dgit.git] / dgit-repos-server

diff --git a/dgit-repos-server b/dgit-repos-server
index 49fa795d0c87a38f488653da5d2d5741c2c202f1..c70bc27fd13b8a7d50ea3d25dba2bd9a7588f3ef 100755 (executable)
--- a/dgit-repos-server
+++ b/dgit-repos-server
@@ -456,8 +456,8 @@ sub checksuite () {
 sub tagh1 ($) {
     my ($tag) = @_;
     my $vals = $tagh{$tag};
-    reject "missing tag $tag in signed tag object" unless $vals;
-    reject "multiple tags $tag in signed tag object" unless @$vals == 1;
+    reject "missing header $tag in signed tag object" unless $vals;
+    reject "multiple headers $tag in signed tag object" unless @$vals == 1;
     return $vals->[0];
 }
 
@@ -576,9 +576,9 @@ sub parseargsdispatch () {
        (?: \S* / )?
        ( [-0-9a-z]+ )
        \s+
-       (?: \S* / )?
+       '? (?: \S* / )?
        ($package_re) \.git
-       $
+       '?$
     }ox 
     or reject "command string not understood";
     my $method = $1;