diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-18 23:19:53 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-18 23:19:53 +0000 |
| commit | f6eb1a9681f0cdb7a59526670d656e4adf00188c (patch) | |
| tree | d346b0295fc22af533b4bfc9470efe23d87dd49b /universal.c | |
| parent | 0562c0e3630958db13a0e70db1b90c05d3fee158 (diff) | |
| download | perl-f6eb1a9681f0cdb7a59526670d656e4adf00188c.tar.gz | |
So there.
p4raw-id: //depot/perl@10699
Diffstat (limited to 'universal.c')
| -rw-r--r-- | universal.c | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/universal.c b/universal.c index 8b2044393b..75e6c5eae4 100644 --- a/universal.c +++ b/universal.c @@ -303,10 +303,9 @@ XS(XS_UNIVERSAL_VERSION) sv_setnv(req, n); } - if (SvNV(req) > SvNV(sv)) { + if (SvNV(req) > SvNV(sv)) Perl_croak(aTHX_ "%s version %s required--this is only version %s", - HvNAME(pkg), SvPV_nolen(req), SvPV_nolen(sv,len)); - } + HvNAME(pkg), SvPV_nolen(req), SvPV_nolen(sv)); } finish: |