wip changes for remote push - provide i_method

1 files changed, 6 insertions, 0 deletions

diff --git a/dgit b/dgit
index bac0baf..0908105 100755
--- a/dgit
+++ b/dgit
@@ -1370,6 +1370,12 @@ sub i_cleanup {
     eval { rmtree $i_tmp; };
 }
 
+sub i_method {
+    my ($base,$selector,@args) = @_;
+    $selector =~ s/\-/_/g;
+    { no strict qw(refs); &{"${base}_${selector}"}(@args); }
+}
+
 sub cmd_rpush {
     my $host = nextarg;
     my $dir;