diff options
| author | Florian Ragwitz <rafl@debian.org> | 2010-11-10 14:19:58 +0100 |
|---|---|---|
| committer | Florian Ragwitz <rafl@debian.org> | 2010-11-10 14:21:51 +0100 |
| commit | eff4c632969f3d8d396084e4721d5853867b0b3a (patch) | |
| tree | 76bc84762a6590e082fed0c93c92aa9af8f612ff | |
| parent | 26c6d6546663b8799501bf8dd16374ea8cc4fdd3 (diff) | |
| download | perl-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.xs | 6 |
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)); } ############################################################################## |