view release on metacpan or  search on metacpan

bin/cgi_cvs_evolr  view on Meta::CPAN

                        $r1 =~ s/\.\d+\.0//;
                        my $r2 = $file->{revision};
                        $action = "<a class='modified' href='" . $viewcvs . $module . $file->{filename} . ".diff?r1=" . $r1 . "\&r2=" . $r2 . "\&root=cvs:" . $repository . "'>MODIFIED</a>";
                    }
                }
                my $filename;
                if ($file->{state} eq 'dead') {
                    $filename = basename($file->{filename});
                }
                else {
                    $filename = "<a class='filename' href='" . $viewcvs . $module . $file->{filename} . "?rev=" . $file->{revision} . "\&content-type=text\%2Fplain\&root=cvs:" . $repository . "'>" . basename($file->{filename}) . "</a>";
                }
                push @files, {
                    filename    => $filename,
                    revision    => $file->{revision},
                    date        => $file->{date},
                    author      => $file->{author},
                    action      => $action,
                    tags        => \@tags,
                };
                $rowspan1 ++;