diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2014-09-15 06:22:30 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2014-09-15 06:22:30 -0700 |
| commit | 6e9fdf669f1f006544b537fb5ffb2d3212704cfa (patch) | |
| tree | ce2343a28db2404376ccdc109bd81692408a8718 /universal.c | |
| parent | f9d9e965c852a57faea33a539ecd03a6e825af47 (diff) | |
| download | perl-6e9fdf669f1f006544b537fb5ffb2d3212704cfa.tar.gz | |
universal.c:croak_xs_usage: Don’t fetch context twice
Diffstat (limited to 'universal.c')
| -rw-r--r-- | universal.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/universal.c b/universal.c index 825dff5c42..906f74c554 100644 --- a/universal.c +++ b/universal.c @@ -326,7 +326,7 @@ Perl_croak_xs_usage(const CV *const cv, const char *const params) /* Pants. I don't think that it should be possible to get here. */ /* diag_listed_as: SKIPME */ - Perl_croak_nocontext("Usage: CODE(0x%"UVxf")(%s)", PTR2UV(cv), params); + Perl_croak(aTHX_ "Usage: CODE(0x%"UVxf")(%s)", PTR2UV(cv), params); } } |