5.10 doesn't auto-load Carp, apparently

TAEB · Sep 23, 2007 · 79c33ee · 79c33ee
1 parent 940fca1
commit 79c33ee
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 5 deletions.
diff --git a/lib/NetHack/PriceID.pm b/lib/NetHack/PriceID.pm
@@ -107,6 +107,12 @@ our %item_table =
     },
 );
 
+sub _croak
+{
+    require Carp;
+    Carp::croak @_;
+}
+
 sub priceid
 {
     my %args = _canonicalize_args(@_);
@@ -133,7 +139,7 @@ sub priceid_buy
     my %args = _canonicalize_args(@_);
     my @base;
 
-    Carp::croak "Calculating 'buy' prices requires that you set 'charisma'."
+    _croak "Calculating 'buy' prices requires that you set 'charisma'."
         if !defined $args{charisma};
 
     for my $base (keys %{ $item_table{ $args{type} } })
@@ -216,15 +222,15 @@ sub _canonicalize_args
         @_,
     );
 
-    Carp::croak "Price IDing requires that you set 'amount'"
+    _croak "Price IDing requires that you set 'amount'"
         if !defined $args{amount};
 
-    Carp::croak "Price IDing requires that you set 'type'"
+    _croak "Price IDing requires that you set 'type'"
         if !defined $args{type};
 
     $args{type} = $glyph2type{ $args{type} } || $args{type};
 
-    Carp::croak "Unknown item type: $args{type}"
+    _croak "Unknown item type: $args{type}"
         if !exists $item_table{ $args{type} };
 
     return %args;

diff --git a/t/005-error.t b/t/005-error.t
@@ -1,7 +1,7 @@
 #!perl -T
 use strict;
 use warnings;
-use Test::More tests => 11;
+use Test::More tests => 12;
 use NetHack::PriceID 'priceid';
 
 eval
@@ -16,6 +16,7 @@ eval
 
 ok($@);
 like($@, qr/Calculating 'buy' prices requires that you set 'charisma'/);
+like($@, qr/005-error/, "croak reports the correct file");
 
 eval
 {