summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorFlorian Ragwitz <rafl@debian.org>2010-11-10 14:19:58 +0100
committerFlorian Ragwitz <rafl@debian.org>2010-11-10 14:21:51 +0100
commiteff4c632969f3d8d396084e4721d5853867b0b3a (patch)
tree76bc84762a6590e082fed0c93c92aa9af8f612ff
parent26c6d6546663b8799501bf8dd16374ea8cc4fdd3 (diff)
downloadperl-eff4c632969f3d8d396084e4721d5853867b0b3a.tar.gz
Fix compilation with old xsubpps
croak_xs_usage is new in perl 5.10, but some version xsubpp emulate it on older perls as well. However, really old xsubpps don't do that.
-rw-r--r--dist/Math-BigInt-FastCalc/FastCalc.xs6
1 files changed, 3 insertions, 3 deletions
diff --git a/dist/Math-BigInt-FastCalc/FastCalc.xs b/dist/Math-BigInt-FastCalc/FastCalc.xs
index 3718a5ac3a..5e246a9170 100644
--- a/dist/Math-BigInt-FastCalc/FastCalc.xs
+++ b/dist/Math-BigInt-FastCalc/FastCalc.xs
@@ -37,9 +37,9 @@ PROTOTYPES: DISABLE
BOOT:
{
if (items < 4)
- croak_xs_usage(cv, "package, version, base_len, base");
- XS_BASE_LEN = SvIV(ST(2));
- XS_BASE = SvNV(ST(3));
+ croak("Usage: Math::BigInt::FastCalc::BOOT(package, version, base_len, base)");
+ XS_BASE_LEN = SvIV(ST(2));
+ XS_BASE = SvNV(ST(3));
}
##############################################################################