use strict;
use warnings;
-use Carp qw/croak/;
-use Config qw/%Config/;
-use Cwd qw/cwd/;
+use Carp qw<croak>;
+use Config qw<%Config>;
+use Cwd qw<cwd>;
use App::Rgit;
-use App::Rgit::Utils qw/:levels/;
+use App::Rgit::Utils qw<:levels>;
use App::Rgit::Policy;
our $VERSION;
BEGIN {
- $VERSION = '0.06';
+ $VERSION = '0.08';
}
my %opts;
setpgrp 0, 0 if $Config{d_setpgrp};
-my $root = $ENV{GIT_DIR};
-$root = cwd unless defined $root;
-
my $ar = App::Rgit->new(
git => undef, # Autodiscovery
- root => $root,
+ root => undef, # Autodiscovery
cmd => $cmd,
args => \@ARGV,
policy => $policy,
=head1 VERSION
-Version 0.06
+Version 0.08
=head1 SYNOPSIS
=head1 AUTHOR
Vincent Pit, C<< <perl at profvince.com> >>, L<http://profvince.com>.
-
+
You can contact me by mail or on C<irc.perl.org> (vincent).
=head1 BUGS