diff options
| author | John Peacock <jpeacock@rowman.com> | 2004-04-06 17:56:19 -0400 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-04-07 08:00:07 +0000 |
| commit | b9381830ea61ec067aab6d500e359e6a80e285b6 (patch) | |
| tree | 00bd740237c0cd7f92b34436e00b3abc25ff339f /universal.c | |
| parent | e3c9a8b9e0e8ab67833a50cc3f37939286b04437 (diff) | |
| download | perl-b9381830ea61ec067aab6d500e359e6a80e285b6.tar.gz | |
Bleadperl to version 0.37
Message-ID: <40735FC3.5010305@rowman.com>
p4raw-id: //depot/perl@22668
Diffstat (limited to 'universal.c')
| -rw-r--r-- | universal.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/universal.c b/universal.c index 4822d3dd8c..bac641c5f4 100644 --- a/universal.c +++ b/universal.c @@ -369,12 +369,12 @@ XS(XS_UNIVERSAL_VERSION) } if ( vcmp( req, sv ) > 0 ) - Perl_croak(aTHX_ - "%s version %"SVf" required--this is only version %"SVf, - HvNAME(pkg), req, sv); + Perl_croak(aTHX_ "%s version %"SVf" (%"SVf") required--" + "this is only version %"SVf" (%"SVf")", HvNAME(pkg), + vnumify(req),vnormal(req),vnumify(sv),vnormal(sv)); } - ST(0) = sv; + ST(0) = vnumify(sv); XSRETURN(1); } |