diff options
| author | Nicholas Clark <nick@ccl4.org> | 2011-01-05 13:19:50 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2011-01-05 13:19:50 +0000 |
| commit | 94bc412f1f7b3d506c2ea51a781e3dd55c1c8492 (patch) | |
| tree | cf3267f0e8e723cac7dea8316d10d526883d1faa /pp.h | |
| parent | af71faff9cab9c988715157db11d9f43f66b98f3 (diff) | |
| download | perl-94bc412f1f7b3d506c2ea51a781e3dd55c1c8492.tar.gz | |
Convert tied PRINT to using Perl_tied_method()
Add a flag TIED_METHOD_SAY to Perl_tied_method(), to allow tied PRINT to
effect C<local $\ = "\n";> within the ENTER/LEAVE pair of Perl_tied_method().
Diffstat (limited to 'pp.h')
| -rw-r--r-- | pp.h | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -497,6 +497,7 @@ True if this op will be the return value of an lvalue subroutine architecture can generate more efficient instructions. */ # define TIED_METHOD_MORTALIZE_NOT_NEEDED 0x04 # define TIED_METHOD_ARGUMENTS_ON_STACK 0x08 +# define TIED_METHOD_SAY 0x10 #endif /* |