Skip to content

Instantly share code, notes, and snippets.

@tokuhirom
Created August 30, 2008 10:44
Show Gist options
  • Save tokuhirom/8103 to your computer and use it in GitHub Desktop.
Save tokuhirom/8103 to your computer and use it in GitHub Desktop.
=== lib/CPAN/Mini/Webserver/Templates.pm
==================================================================
--- lib/CPAN/Mini/Webserver/Templates.pm (revision 24233)
+++ lib/CPAN/Mini/Webserver/Templates.pm (local)
@@ -593,10 +593,12 @@
attr { class => 'span-18 last' };
# outs_raw '<table>';
- my ( @code, @test, @other );
+ my ( @code, @test, @other, @doc );
foreach (@filenames) {
if ( m{(?:/bin/|\.p(?:m|l)$)} and not m{/inc/} ) {
push @code, $_;
+ } elsif ( m{\.pod$}) {
+ push @doc, $_;
} elsif (/\.t$/) {
push @test, $_;
} else {
@@ -604,6 +606,7 @@
}
}
show( 'filelist', $pauseid, $distvname, 'Code', \@code );
+ show( 'filelist', $pauseid, $distvname, 'Docs', \@doc );
show( 'filelist', $pauseid, $distvname, 'Tests', \@test );
show( 'filelist', $pauseid, $distvname, 'Other',
\@other );
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment