From fbb2767a1a26503fd930aed3240209dd0ea3a541 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Mon, 27 Oct 2014 17:43:58 +0000
Subject: [PATCH] Make mk_orig_file have capability to be selective on source
 package and version

---
 dgit | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/dgit b/dgit
index b13b5ed5..e74445ba 100755
--- 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 ($) {
-- 
2.30.2