summaryrefslogtreecommitdiff
path: root/universal.c
diff options
context:
space:
mode:
authorHugo van der Sanden <hv@crypt.org>2002-08-23 11:02:35 +0000
committerhv <hv@crypt.org>2002-08-23 11:02:35 +0000
commitba329e04450c9e718e3584348f2d0f15c4762fb6 (patch)
tree86d59e89495d3393bf78862ecaadffb79a856c5f /universal.c
parentb53307ead6e86d4eafd7cc2ea1c0dbe964e63e43 (diff)
downloadperl-ba329e04450c9e718e3584348f2d0f15c4762fb6.tar.gz
fixup threaded build for vstring changes
p4raw-id: //depot/perl@17762
Diffstat (limited to 'universal.c')
-rw-r--r--universal.c12
1 files changed, 6 insertions, 6 deletions
diff --git a/universal.c b/universal.c
index 486b366f4a..668fa3b34a 100644
--- a/universal.c
+++ b/universal.c
@@ -414,7 +414,7 @@ XS(XS_version_stringify)
lobj = tmp;
}
else
- croak("lobj is not of type version");
+ Perl_croak(aTHX_ "lobj is not of type version");
{
SV *vs = NEWSV(92,5);
@@ -444,7 +444,7 @@ XS(XS_version_numify)
lobj = tmp;
}
else
- croak("lobj is not of type version");
+ Perl_croak(aTHX_ "lobj is not of type version");
{
SV *vs = NEWSV(92,5);
@@ -471,7 +471,7 @@ XS(XS_version_vcmp)
lobj = tmp;
}
else
- croak("lobj is not of type version");
+ Perl_croak(aTHX_ "lobj is not of type version");
{
SV *rs;
@@ -516,7 +516,7 @@ XS(XS_version_boolean)
lobj = tmp;
}
else
- croak("lobj is not of type version");
+ Perl_croak(aTHX_ "lobj is not of type version");
{
SV *rs;
@@ -542,10 +542,10 @@ XS(XS_version_noop)
lobj = tmp;
}
else
- croak("lobj is not of type version");
+ Perl_croak(aTHX_ "lobj is not of type version");
{
- croak("operation not supported with version object");
+ Perl_croak(aTHX_ "operation not supported with version object");
}
}