Skip to content

Commit

Permalink
Fixed previous fixes.
Browse files Browse the repository at this point in the history
  • Loading branch information
davorg committed Sep 21, 2008
1 parent df23eac commit 88dc15d
Showing 1 changed file with 3 additions and 3 deletions.
6 changes: 3 additions & 3 deletions release
Expand Up @@ -39,19 +39,19 @@ foreach (<cover_db/*.html>, <cover_db/*.css>) {
} }
move "$meta->{name}/cover/coverage.html", "$meta->{name}/cover/index.html"; move "$meta->{name}/cover/coverage.html", "$meta->{name}/cover/index.html";


#my $ver = "$meta->{name}-$meta->{version}"; my $ver = "$meta->{name}-$meta->{version}";
#system("cpanspec -b -f $ver.tar.gz"); #system("cpanspec -b -f $ver.tar.gz");


#my $rpm = glob("noarch/perl-$meta->{name}-$meta->{version}-*.rpm"); #my $rpm = glob("noarch/perl-$meta->{name}-$meta->{version}-*.rpm");
#my $srcrpm = glob("perl-$meta->{name}-$meta->{version}-*.src.rpm"); #my $srcrpm = glob("perl-$meta->{name}-$meta->{version}-*.src.rpm");


my $t = Template->new({INCLUDE_PATH => TT}); my $t = Template->new({INCLUDE_PATH => TT});
$t->process('index.tt', { rpm => $rpm, srcrpm => $srcrpm }, $t->process('index.tt', { },
"$meta->{name}/index.html") "$meta->{name}/index.html")
or die $t->error; or die $t->error;


copy "$ver.tar.gz", $meta->{name}; copy "$ver.tar.gz", $meta->{name};
i#if ($rpm) { #if ($rpm) {
# copy $rpm, $meta->{name}; # copy $rpm, $meta->{name};
# $rpm =~ s|^noarch/||; # $rpm =~ s|^noarch/||;
#} #}
Expand Down

0 comments on commit 88dc15d

Please sign in to comment.