diff options
author | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2014-10-27 17:43:58 +0000 |
---|---|---|
committer | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2014-11-05 18:02:50 +0000 |
commit | fbb2767a1a26503fd930aed3240209dd0ea3a541 (patch) | |
tree | 8c3b68b69c80f43fa3fb6e150fc9f5f0a6de4945 | |
parent | 8293f64249970c85187371555ad7bd162a37d695 (diff) |
Make mk_orig_file have capability to be selective on source package and version
-rwxr-xr-x | dgit | 9 |
1 files changed, 6 insertions, 3 deletions
@@ -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 ($) { |