diff options
| author | Nicholas Clark <nick@ccl4.org> | 2010-05-06 10:16:02 +0100 |
|---|---|---|
| committer | Steffen Mueller <smueller@cpan.org> | 2010-08-23 16:23:21 +0200 |
| commit | 3bf5b5a97330bcfa46b89ff7878e63a368dbcb2c (patch) | |
| tree | ac1a3b4d5e6ff4cc853982cf2bc6cb018194aaa3 | |
| parent | e7b8a6d555fbdbd2d9b191e17125973ec84a7683 (diff) | |
| download | perl-3bf5b5a97330bcfa46b89ff7878e63a368dbcb2c.tar.gz | |
Move code to after the variable declarations.
Currently we only compile the top level code with "extreme warnings", so code
in ext/ isn't subject to -Wdeclaration-after-statement, hence why this was
missed. Now that dual life modules have been evicted from ext/, we could
probably consider notching up the warnings for all code in ext/.
| -rw-r--r-- | ext/PerlIO-scalar/scalar.xs | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/ext/PerlIO-scalar/scalar.xs b/ext/PerlIO-scalar/scalar.xs index 67f674a2a5..f2481f4197 100644 --- a/ext/PerlIO-scalar/scalar.xs +++ b/ext/PerlIO-scalar/scalar.xs @@ -85,9 +85,12 @@ IV PerlIOScalar_seek(pTHX_ PerlIO * f, Off_t offset, int whence) { PerlIOScalar *s = PerlIOSelf(f, PerlIOScalar); - SvGETMAGIC(s->var); - STRLEN oldcur = SvCUR(s->var); + STRLEN oldcur; STRLEN newlen; + + SvGETMAGIC(s->var); + oldcur = SvCUR(s->var); + switch (whence) { case SEEK_SET: s->posn = offset; |