Make mk_orig_file have capability to be selective on source package and version

[dgit.git] / dgit

diff --git a/dgit b/dgit
index b13b5ed566c74f36d24a96298f59eb5e0ea007aa..e74445ba23ea07e545e8fc1336a443af698ddf69 100755 (executable)
--- a/dgit
+++ b/dgit
@@ -1028,9 +1028,12 @@ sub dsc_files () {
     map { $_->{Filename} } dsc_files_info();
 }
 
-sub is_orig_file ($) {
-    local ($_) = @_;
-    m/\.orig(?:-\w+)?\.tar\.\w+$/;
+sub is_orig_file ($;$) {
+    local ($_) = $_[0];
+    my $base = $_[1];
+    m/\.orig(?:-\w+)?\.tar\.\w+$/ or return 0;
+    defined $base or return 1;
+    return $` eq $base;
 }
 
 sub make_commit ($) {