Revamp t/92-pod-coverage.t

[perl/modules/rgit.git] / bin / rgit

diff --git a/bin/rgit b/bin/rgit
index 1ee11584f152f9812634198e6ae3dbec78b7fc60..ef988520d4627d32bbfe4a9fe18f82527ceb937e 100755 (executable)
--- a/bin/rgit
+++ b/bin/rgit
@@ -36,10 +36,10 @@ if (-t && $opts{I}) {
 } elsif ($opts{K}) {
  $policy = 'Keep';
 }
-$policy = eval { App::Rgit::Policy->new(name => $policy) };
+$policy = eval { App::Rgit::Policy->new(policy => $policy) };
 if (not defined $policy) {
  print STDERR $@ if $@;
- $policy = App::Rgit::Policy->new(name => 'Default');
+ $policy = App::Rgit::Policy->new(policy => 'Default');
 }
 
 setpgrp 0, 0 if $Config{d_setpgrp};