diff options
author | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2015-03-22 16:00:52 +0000 |
---|---|---|
committer | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2015-03-22 16:00:52 +0000 |
commit | 1c6183785fa3a9f6fe60a55bb9ff200963b4e791 (patch) | |
tree | 3799c71234c5d74bc659148028251642221eaafd /Debian/Dgit.pm | |
parent | f46909c2a0e4b6c3e038b4ff92909060a3cc1bee (diff) |
Bugfixes (now tests/tests/clone-nogit works)
Diffstat (limited to 'Debian/Dgit.pm')
-rw-r--r-- | Debian/Dgit.pm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/Debian/Dgit.pm b/Debian/Dgit.pm index 6932d14..e177a83 100644 --- a/Debian/Dgit.pm +++ b/Debian/Dgit.pm @@ -1,10 +1,12 @@ -# +# -*- perl -*- package Debian::Dgit; use strict; use warnings; +use POSIX; + BEGIN { use Exporter (); our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS); @@ -14,7 +16,7 @@ BEGIN { @EXPORT = qw(debiantag server_branch server_ref stat_exists git_for_each_ref $package_re $branchprefix); - %EXPORT_TAGS = ( policyflags => qw() ); + %EXPORT_TAGS = ( policyflags => [qw()] ); @EXPORT_OK = qw(); } @@ -51,7 +53,7 @@ sub git_for_each_ref ($$) { # calls $func->($objid,$objtype,$fullrefname,$reftail); # $reftail is RHS of ref after refs/\w+/ # breaks if $pattern matches any ref `refs/blah' where blah has no `/' - my $fh = new IO::File, "-|", qw(git for-each-ref), $pattern or die $!; + my $fh = new IO::File "-|", qw(git for-each-ref), $pattern or die $!; while (<$fh>) { m#^(\w+)\s+(\w+)\s+(refs/\w+/(\S+))\s# or die "$_ ?"; $func->($1,$2,$3,$4); |