SOURCES: pldcpan.pl - TODO: --skipdeps; fixed "=begin comment"
radek
radek at pld-linux.org
Fri Dec 12 12:14:07 CET 2008
Author: radek Date: Fri Dec 12 11:14:07 2008 GMT
Module: SOURCES Tag: HEAD
---- Log message:
- TODO: --skipdeps; fixed "=begin comment"
---- Files affected:
SOURCES:
pldcpan.pl (1.56 -> 1.57)
---- Diffs:
================================================================
Index: SOURCES/pldcpan.pl
diff -u SOURCES/pldcpan.pl:1.56 SOURCES/pldcpan.pl:1.57
--- SOURCES/pldcpan.pl:1.56 Fri Dec 12 12:10:54 2008
+++ SOURCES/pldcpan.pl Fri Dec 12 12:14:00 2008
@@ -23,10 +23,24 @@
Some things we're working on/thinking about:
- 1. use poldek to search whether dir should be packaged:
+=over
+
+=item 1.
+
+use poldek to search whether 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)
+
+=item 2.
+
+first could be checked if the dir is contained by perl-base (will be faster than querying poldek)
+
+=item 3.
+
+Detect Module::AutoInstall and add --skipdeps to Makefile.PL.
+
+=back
=head1 BUGS
@@ -406,6 +420,7 @@
}
=begin comment
+
my $tree = new Pod::Tree;
$tree->load_file($info->{pod_file});
unless ($tree->has_pod) {
@@ -428,6 +443,7 @@
}
$info->{$state} .= $n->get_text if $state;
}
+
=cut
$info->{summary} =~ y/\r\n\t / /s;
@@ -437,6 +453,7 @@
warn " ,, no description in $info->{pod_file}\n" unless $info->{descr};
=begin comment
+
my $file < io($info->{pod_file});
$file =~ y/\r//d;
if ($file =~ /(?:^|\n)=head\d\s+NAME[\t ]*\n\s*(.+)\n+(?:=|$)/) {
@@ -458,6 +475,7 @@
warn " ,, no description: $_\n";
$info->{descr} = '';
}
+
=cut
$info->{_tests}->{find_summ_descr} =
================================================================
---- CVS-web:
http://cvs.pld-linux.org/cgi-bin/cvsweb.cgi/SOURCES/pldcpan.pl?r1=1.56&r2=1.57&f=u
More information about the pld-cvs-commit
mailing list