[carton] 221/472: Woo, WTF femove Makefile.PL
Lucas Kanashiro
kanashiro-guest at moszumanska.debian.org
Fri Jul 24 00:38:48 UTC 2015
This is an automated email from the git hooks/post-receive script.
kanashiro-guest pushed a commit to branch master
in repository carton.
commit 649ae68b13a7ad5f98fd260c8a759fa1fa369e81
Author: Tatsuhiko Miyagawa <miyagawa at bulknews.net>
Date: Fri May 31 08:45:28 2013 +0900
Woo, WTF femove Makefile.PL
---
Makefile.PL | 70 -------------------------------------------------------------
1 file changed, 70 deletions(-)
diff --git a/Makefile.PL b/Makefile.PL
deleted file mode 100644
index 7caa702..0000000
--- a/Makefile.PL
+++ /dev/null
@@ -1,70 +0,0 @@
-use inc::Module::Install;
-use Module::Install::CPANfile;
-
-name 'carton';
-version_from 'lib/Carton.pm';
-perl_version '5.008001';
-license_from 'lib/Carton.pod';
-author_from 'lib/Carton.pod';
-readme_from('lib/Carton.pod');
-
-cpanfile;
-
-install_script 'bin/carton';
-
-doc_to_pods();
-
-build_requires 'Test::More', 0.88;
-test_requires 'Test::Requires';
-auto_set_repository();
-auto_provides;
-
-resources
- homepage => 'https://github.com/miyagawa/carton',
- bugtracker => 'https://github.com/miyagawa/carton/issues';
-
-WriteAll;
-
-sub doc_to_pods {
- # lib/Carton/Doc/*.pod => docs/carton-*.pod => blib/man1/carton-*.1
-
- my %pods;
-
- for my $file ("lib/Carton.pod", glob "lib/Carton/Doc/*.pod") {
- my $base = ($file =~ m!lib/(.*?)\.pod!)[0];
- $base =~ s!/!::!g;
- my $name = $base eq 'Carton' ? "carton" : ("carton-" . lc( (split /::/, $base)[-1] ));
- my $doc = "docs/$name.pod";
-
- if ($Module::Install::AUTHOR) {
- mkdir "docs", 0777;
- copy_pod($file, $doc, $base => $name);
- }
-
- $pods{$doc} = "blib/man1/$name.1"
- }
-
- makemaker_args MAN1PODS => \%pods;
-}
-
-sub copy_pod {
- my($src, $dest, $pod_name, $man) = @_;
-
- warn "Copying $src -> $dest\n";
-
- open my $in, "<", $src or die "$src: $!";
- open my $out, ">", $dest or die "$dest: $!";
-
- my $match;
- while (<$in>) {
- unless ($match) {
- s/^$pod_name - /$man - /
- and $match++;
- }
- print $out $_;
- }
-
- unless ($match) {
- die "Couldn't find NAME $pod_name in $src";
- }
-}
--
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/carton.git
More information about the Pkg-perl-cvs-commits
mailing list