Dgit.pm, dgit: Break $extra_orig_namepart_re out into Dgit.pm.

[dgit.git] / dgit

diff --git a/dgit b/dgit
index aaafefb736a05d88258e7c5d4f0023c174f37cf3..573f39ad07f7251adbc1fdfa41429e8c7232ac40 100755 (executable)
--- a/dgit
+++ b/dgit
@@ -95,7 +95,7 @@ our %format_ok = map { $_=>1 } ("1.0","3.0 (native)","3.0 (quilt)");
 
 our $suite_re = '[-+.0-9a-z]+';
 our $cleanmode_re = 'dpkg-source(?:-d)?|git|git-ff|check|none';
-our $orig_f_comp_re = 'orig(?:-[-0-9a-z]+)?';
+our $orig_f_comp_re = qr{orig(?:-$extra_orig_namepart_re)?};
 our $orig_f_sig_re = '\\.(?:asc|gpg|pgp)';
 our $orig_f_tail_re = "$orig_f_comp_re\\.tar(?:\\.\\w+)?(?:$orig_f_sig_re)?";