dgit: import_tarball_tartrees: Provide OrigPart

[dgit.git] / dgit

diff --git a/dgit b/dgit
index 33370619cd2f12d277e7475a8fd9154049c47ede..73b88ad593616e086fda2736b1e9e96bde0a0fcc 100755 (executable)
--- a/dgit
+++ b/dgit
@@ -2367,6 +2367,7 @@ sub import_tarball_tartrees ($$) {
             Sort => (!$orig_f_part         ? 2 :
                     $orig_f_part =~ m/-/g ? 1 :
                                             0),
+            OrigPart => $orig_f_part, # 'orig', 'orig-XXX', or undef 
             F => $f,
             Tree => $tree,
         };