diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-06-10 12:07:01 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-06-10 12:07:01 +0000 |
| commit | f2e5e56948e20feccc483331db17d10a7d20863d (patch) | |
| tree | 7292cb7e04c01b7062db950af82d675ba99b23ea /ext | |
| parent | f4c6fd49d1c0b5c445becff6789f91798400c075 (diff) | |
| download | perl-f2e5e56948e20feccc483331db17d10a7d20863d.tar.gz | |
SvUPGRADE returns void in blead
p4raw-id: //depot/perl@24787
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/Compress/Zlib/Zlib.xs | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/ext/Compress/Zlib/Zlib.xs b/ext/Compress/Zlib/Zlib.xs index 2421f2cfac..a9f629788c 100644 --- a/ext/Compress/Zlib/Zlib.xs +++ b/ext/Compress/Zlib/Zlib.xs @@ -422,8 +422,7 @@ Zip_gzread(file, buf, len=4096) CODE: if (SvREADONLY(buf) && PL_curcop != &PL_compiling) croak("gzread: buffer parameter is read-only"); - if (!SvUPGRADE(buf, SVt_PV)) - croak("cannot use buf argument as lvalue"); + SvUPGRADE(buf, SVt_PV); SvPOK_only(buf); SvCUR_set(buf, 0); /* any left over from gzreadline ? */ @@ -468,8 +467,7 @@ gzreadline(file, buf) CODE: if (SvREADONLY(buf) && PL_curcop != &PL_compiling) croak("gzreadline: buffer parameter is read-only"); - if (!SvUPGRADE(buf, SVt_PV)) - croak("cannot use buf argument as lvalue"); + SvUPGRADE(buf, SVt_PV); SvPOK_only(buf); /* sv_setpvn(buf, "", SIZE) ; */ SvGROW(buf, SIZE) ; |