From: Vincent Pit <vince@profvince.com>
Date: Wed, 24 Aug 2011 23:04:15 +0000 (+0200)
Subject: die instead of croak-ing for internal errors
X-Git-Tag: v0.04~2
X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FAcme-CPANAuthors-You-re_using.git;a=commitdiff_plain;h=0bb547c9593c1291ee4c5eb226e0250a004bde4e

die instead of croak-ing for internal errors

Carp is no longer needed.
---

diff --git a/Makefile.PL b/Makefile.PL
index 692897e..ec59798 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -11,7 +11,6 @@ $file = "lib/$file.pm";
 
 my %PREREQ_PM = (
  'Acme::CPANAuthors' => '0.16',
- 'Carp'              => 0,
  'File::Find'        => 0,
  'Module::Metadata'  => '1.000005',
 );
diff --git a/lib/Acme/CPANAuthors/You/re_using.pm b/lib/Acme/CPANAuthors/You/re_using.pm
index 8c8a746..1281802 100644
--- a/lib/Acme/CPANAuthors/You/re_using.pm
+++ b/lib/Acme/CPANAuthors/You/re_using.pm
@@ -3,8 +3,6 @@ package Acme::CPANAuthors::You::re_using;
 use strict;
 use warnings;
 
-use Carp qw/croak/;
-
 use File::Find ();
 use Module::Metadata;
 
@@ -57,10 +55,10 @@ sub register {
  my %authors;
 
  my $pkgs = Acme::CPANAuthors::Utils::cpan_packages();
- croak 'Couldn\'t retrieve a valid Parse::CPAN::Packages object' unless $pkgs;
+ die 'Couldn\'t retrieve a valid Parse::CPAN::Packages object' unless $pkgs;
 
  my $auths = Acme::CPANAuthors::Utils::cpan_authors();
- croak 'Couldn\'t retrieve a valid Parse::CPAN::Authors object' unless $auths;
+ die 'Couldn\'t retrieve a valid Parse::CPAN::Authors object' unless $auths;
 
  my %modules;
 
@@ -100,7 +98,7 @@ BEGIN { register() }
 
 =head1 DEPENDENCIES
 
-L<Carp>, L<File::Find>, L<Module::Metadata>, L<Acme::CPANAuthors>.
+L<File::Find>, L<Module::Metadata>, L<Acme::CPANAuthors>.
 
 =head1 SEE ALSO