Author: glen Date: Wed Oct 29 20:33:27 2008 GMT Module: SOURCES Tag: HEAD ---- Log message: - write some pod doc, inspired from cpan2rpm but nothing really left
---- Files affected: SOURCES: pldcpan.pl (1.53 -> 1.54) ---- Diffs: ================================================================ Index: SOURCES/pldcpan.pl diff -u SOURCES/pldcpan.pl:1.53 SOURCES/pldcpan.pl:1.54 --- SOURCES/pldcpan.pl:1.53 Sun May 18 17:26:18 2008 +++ SOURCES/pldcpan.pl Wed Oct 29 21:33:21 2008 @@ -2,6 +2,51 @@ # Requirements: # perl-Pod-Tree perl-Archive-Any perl-Template-Toolkit perl-YAML perl-IO-String # perl-File-Find-Rule perl-Module-CoreList + +=head1 NAME + +pldcpan - A Perl module packager + +=head1 SYNOPSIS + + pldcpan.pl [ OPTIONS ] DIST [ DIST2 DIST3 ... ] + +=head1 DESCRIPTION + +This program uncompresses given archives in the current directory and -- more +or less successfully -- attempts to write corresponding perl-*.spec files. + +DIST can be a directory, a compressed archive, URL to fetch or module name +(Foo::Bar) to be found on search.cpan.org. + +=head1 TODO + +Some things we're working on/thinking about: + + 1. use poldek to search if dir should be packaged: + $ poldek -q --cmd search -f /usr/share/perl5/vendor_perl/Text + perl-base-5.8.7-4 + 2. first could be checked if the dir is contained by perl-base (will be faster than querying poldek) + +=head1 BUGS + +Every software has bugs, if you find one and it's really annoying for you, try +opening bugreport at: F<http://bugs.pld-linux.org> + +=head1 AUTHOR + +Radoslaw Zielinski <[EMAIL PROTECTED]>. +This manual page was composed by Elan Ruusamae <[EMAIL PROTECTED]> + +=head1 LICENSE AND COPYRIGHT + +Copyright (c) 2004-2008 PLD Linux Distribution + +This product is free and distributed under the Gnu Public License (GPL). + +=cut + + use strict; use Cwd qw( getcwd ); @@ -19,17 +64,6 @@ use Module::CoreList (); use LWP::Simple (); -=cut -TODO/Wishlist - -- use poldek to search if dir should be packaged: -$ poldek -q --cmd search -f /usr/share/perl5/vendor_perl/Text -perl-base-5.8.7-4 -- first could be checked if the dir is contained by perl-base (will be faster -than querying poldek) - -=cut - our $VERSION = sprintf "%d.%02d", q$Revision$ =~ /(\d+)/g; our %opts; GetOptions(\%opts, 'verbose|v', 'modulebuild|B', 'makemaker|M', 'force'); @@ -371,7 +405,7 @@ $info->{ $sec->{h} } =~ s/^\s*=head.*//; } -=pod +=begin comment my $tree = new Pod::Tree; $tree->load_file($info->{pod_file}); unless ($tree->has_pod) { @@ -402,7 +436,7 @@ warn " ,, no summary in $info->{pod_file}\n" unless $info->{summary}; warn " ,, no description in $info->{pod_file}\n" unless $info->{descr}; -=pod +=begin comment my $file < io($info->{pod_file}); $file =~ y/\r//d; if ($file =~ /(?:^|\n)=head\d\s+NAME[\t ]*\n\s*(.+)\n+(?:=|$)/) { ================================================================ ---- CVS-web: http://cvs.pld-linux.org/cgi-bin/cvsweb.cgi/SOURCES/pldcpan.pl?r1=1.53&r2=1.54&f=u _______________________________________________ pld-cvs-commit mailing list [email protected] http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
