summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJustin Davis <jrcd83@gmail.com>2011-12-29 21:31:08 +0100
committerJustin Davis <jrcd83@gmail.com>2011-12-29 21:31:08 +0100
commit34328fcd17291f33700407700ab0a8e0be6e8252 (patch)
tree5d0af3eb2cab55b85d37eb9bb4e1e6ebf4def2c5
parent793280a6f57c52ef720bdba7aa15cd38c8292e25 (diff)
downloadgenpkg-34328fcd17291f33700407700ab0a8e0be6e8252.tar.gz
genpkg-34328fcd17291f33700407700ab0a8e0be6e8252.tar.xz
Fix tabs characters.
-rwxr-xr-xlib/metas/perl.d/perl-dist16
1 files changed, 8 insertions, 8 deletions
diff --git a/lib/metas/perl.d/perl-dist b/lib/metas/perl.d/perl-dist
index 5f6bd4c..7c64380 100755
--- a/lib/metas/perl.d/perl-dist
+++ b/lib/metas/perl.d/perl-dist
@@ -48,7 +48,7 @@ sub dist_pkgname
# Package names should be lowercase and consist of alphanumeric
# characters only (and hyphens!)...
- $distname = lc($distname);
+ $distname = lc($distname);
$distname =~ tr/_+/--/;
$distname =~ tr/-a-z0-9//cd; # Delete all other chars
$distname =~ tr/-/-/s;
@@ -103,7 +103,7 @@ sub _merge
MERGE_LOOP:
while(my ($pkg, $ver) = each(%$right_deps)) {
if($left_deps->{$pkg}) {
- my $leftver = version->parse($left_deps->{$pkg});
+ my $leftver = version->parse($left_deps->{$pkg});
my $rightver = version->parse($ver);
next MERGE_LOOP if $leftver > $rightver;
}
@@ -122,8 +122,8 @@ sub _mergedups
for my $name (keys %$left) {
my $rver = delete($right->{$name}) or next;
my $lver = $left->{$name};
- my $lvo = ($lver ? version->parse($lver) : 0);
- my $rvo = ($rver ? version->parse($rver) : 0);
+ my $lvo = ($lver ? version->parse($lver) : 0);
+ my $rvo = ($rver ? version->parse($rver) : 0);
$left->{$name} = ($lvo > $rvo ? $lvo : $rvo);
}
@@ -322,7 +322,7 @@ use Digest::SHA ();
sub main
{
my $distpath = shift() or die "Usage: $PROG [path to cpan dist file]\n";
- my $dir = dirname($distpath);
+ my $dir = dirname($distpath);
my $file = basename($distpath);
my $info = distinfo($file);
@@ -432,9 +432,9 @@ sub loadmeta
my $meta = do { local $/; <$metafh> };
close($metafh);
- $meta = ($metaext eq 'json' ? decode_json($meta) :
- $metaext eq 'yml' ? YAML::XS::Load($meta) :
- die "internal error: unknown \$metaext: $metaext");
+ $meta = ($metaext eq 'json' ? decode_json($meta) :
+ $metaext eq 'yml' ? YAML::XS::Load($meta) :
+ die "internal error: unknown \$metaext: $metaext");
upgrademeta($meta);
return $meta;