diff --git a/CHANGES b/CHANGES index 28ea605..b743c98 100644 --- a/CHANGES +++ b/CHANGES @@ -1,5 +1,20 @@ Revision history for Perl module Git::PurePerl: +0.52 Sat Jun 11 22:22:04 CEST 2016 + - fix 'Can't redeclare "my" in "my" ...' error in 5.24 (gregor herrmann) + +0.51 Fri Mar 6 13:58:39 CET 2015 + - Fix failing test if there is no internet access (Bugdebugger) + - Update repository link in PurePerl.pm (Bugdebugger) + - Update repository link (Сергей Романов) + +0.50 Sat Jan 25 14:58:16 CET 2014 + - Now with the changes from 0.49 in CHANGES. That's it. + +0.49 Sat Jan 25 14:55:42 CET 2014 + - qw() in list context is an error now (gregor herrmann) + - Fixed RT#90667 (Zoffix Znet) + 0.48 Thu Jul 14 22:53:55 BST 2011 - Translation from Digest::SHA1 to Digest::SHA (Jonas Genannt) - A git object can also be of zero size. (Christian Walde) diff --git a/Makefile.PL b/Makefile.PL index 459ff53..986995e 100644 --- a/Makefile.PL +++ b/Makefile.PL @@ -9,7 +9,7 @@ author 'Leon Brocard '; abstract 'A Pure Perl interface to Git repositories'; license 'perl'; -resources repository => 'git://github.com/bobtfish/git-pureperl.git'; +resources repository => 'git://github.com/broquaint/git-pureperl.git'; requires 'Archive::Extract' => '0'; requires 'Compress::Raw::Zlib' => '0'; diff --git a/lib/Git/PurePerl.pm b/lib/Git/PurePerl.pm index 6728282..3c1bec7 100644 --- a/lib/Git/PurePerl.pm +++ b/lib/Git/PurePerl.pm @@ -37,7 +37,7 @@ use IO::Socket::INET; use Path::Class; use namespace::autoclean; -our $VERSION = '0.48'; +our $VERSION = '0.52'; $VERSION = eval $VERSION; has 'directory' => ( @@ -156,7 +156,7 @@ sub ref_names { foreach my $line ( $packed_refs->slurp( chomp => 1 ) ) { next if $line =~ /^#/; next if $line =~ /^\^/; - my ( $sha1, my $name ) = split ' ', $line; + my ( $sha1, $name ) = split ' ', $line; push @names, $name; } } @@ -202,7 +202,7 @@ sub ref_sha1 { my $last_sha1; foreach my $line ( $packed_refs->slurp( chomp => 1 ) ) { next if $line =~ /^#/; - my ( $sha1, my $name ) = split ' ', $line; + my ( $sha1, $name ) = split ' ', $line; $sha1 =~ s/^\^//; $name ||= $last_name; @@ -531,7 +531,7 @@ It was mostly based on Grit L. =head1 MAINTAINANCE -This module is maintained in git at L. +This module is maintained in git at L. Patches are welcome, please come speak to one of the L team on C<< #gitalist >>. diff --git a/lib/Git/PurePerl/NewObject.pm b/lib/Git/PurePerl/NewObject.pm index 9305e2e..fbd1397 100644 --- a/lib/Git/PurePerl/NewObject.pm +++ b/lib/Git/PurePerl/NewObject.pm @@ -4,7 +4,7 @@ use MooseX::StrictConstructor; use Moose::Util::TypeConstraints; use namespace::autoclean; -enum 'ObjectKind' => qw(commit tree blob tag); +enum 'ObjectKind' => [qw(commit tree blob tag)]; has 'kind' => ( is => 'ro', isa => 'ObjectKind', required => 1 ); has 'size' => ( is => 'ro', isa => 'Int', required => 0, lazy_build => 1 ); diff --git a/lib/Git/PurePerl/Object.pm b/lib/Git/PurePerl/Object.pm index 8f561e6..71762f5 100644 --- a/lib/Git/PurePerl/Object.pm +++ b/lib/Git/PurePerl/Object.pm @@ -4,7 +4,7 @@ use MooseX::StrictConstructor; use Moose::Util::TypeConstraints; use namespace::autoclean; -enum 'ObjectKind' => qw(commit tree blob tag); +enum 'ObjectKind' => [qw(commit tree blob tag)]; has 'kind' => ( is => 'ro', isa => 'ObjectKind', required => 1 ); has 'size' => ( is => 'ro', isa => 'Int', required => 1 ); diff --git a/t/00_setup.t b/t/00_setup.t index 19de5de..eab79b3 100644 --- a/t/00_setup.t +++ b/t/00_setup.t @@ -4,7 +4,7 @@ use warnings; use Test::More; use Archive::Extract; -foreach my $name qw(test-project test-project-packs test-project-packs2 test-encoding) { +foreach my $name (qw(test-project test-project-packs test-project-packs2 test-encoding)) { next if -d $name; my $ae = Archive::Extract->new( archive => "$name.tgz" ); $ae->extract; diff --git a/t/protocol_gpp.t b/t/protocol_gpp.t index 07683d1..80c52e6 100644 --- a/t/protocol_gpp.t +++ b/t/protocol_gpp.t @@ -6,6 +6,13 @@ use IO::File; use Path::Class; use Test::More; +my $socket = IO::Socket::INET->new("www.github.com:80"); +if ($socket) { + close ($socket); +} else { + plan skip_all => 'No Internet connection available'; +} + my $directory = 'test-protocol'; dir($directory)->rmtree; diff --git a/t/simple.t b/t/simple.t index 2874dd0..2c0ce45 100644 --- a/t/simple.t +++ b/t/simple.t @@ -7,7 +7,7 @@ use Path::Class; my $checkout_directory = dir('t/checkout'); -foreach my $directory qw(test-project test-project-packs test-project-packs2) +foreach my $directory (qw(test-project test-project-packs test-project-packs2)) { my $git = Git::PurePerl->new( directory => $directory ); like( $git->master_sha1, qr/^[a-z0-9]{40}$/ );