Revert "Make scalar() propagate lvalueness"

[perl5.git] / opcode.h

diff --git a/opcode.h b/opcode.h
index 00d27f8..709e92c 100644 (file)
--- a/opcode.h
+++ b/opcode.h
@@ -1546,7 +1546,7 @@ EXT Perl_check_t PL_check[] /* or perlvars.h */
        Perl_ck_fun,            /* syswrite */
        Perl_ck_eof,            /* eof */
        Perl_ck_tell,           /* tell */
-       Perl_ck_fun,            /* seek */
+       Perl_ck_tell,           /* seek */
        Perl_ck_trunc,          /* truncate */
        Perl_ck_fun,            /* fcntl */
        Perl_ck_fun,            /* ioctl */