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 <miyag...@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

_______________________________________________
Pkg-perl-cvs-commits mailing list
Pkg-perl-cvs-commits@lists.alioth.debian.org
http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits

Reply via email to