diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-18 23:10:22 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-18 23:10:22 +0000 |
| commit | 0562c0e3630958db13a0e70db1b90c05d3fee158 (patch) | |
| tree | 1a5b95a275a54726c55fe1717da9fc42397bc61b /universal.c | |
| parent | 21071c796cea8a77ac4a8e55245edbb3cf3a6f20 (diff) | |
| download | perl-0562c0e3630958db13a0e70db1b90c05d3fee158.tar.gz | |
Document the need for sv_printify().
Document that 'use utf8' has been considered.
(An unfinished, gcc 3.0 -Wall nit fix also slipped in, gack.)
p4raw-id: //depot/perl@10698
Diffstat (limited to 'universal.c')
| -rw-r--r-- | universal.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/universal.c b/universal.c index ca69243ca6..8b2044393b 100644 --- a/universal.c +++ b/universal.c @@ -303,9 +303,10 @@ 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(req,len), SvPV(sv,len)); + HvNAME(pkg), SvPV_nolen(req), SvPV_nolen(sv,len)); + } } finish: |