diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-01-14 01:27:13 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-01-14 01:27:13 +0000 |
| commit | 192587c2153e5b0fa4ed545cdd3fa7fef8fc0d8b (patch) | |
| tree | 23c4d17163d0c727b113962137cc49dcb7697c9c /dump.c | |
| parent | 9740c8380c47f3138ea60459cef1e748515e656d (diff) | |
| download | perl-192587c2153e5b0fa4ed545cdd3fa7fef8fc0d8b.tar.gz | |
avoid spurious "Useless use of variable" warning on C<our $foo;>
p4raw-id: //depot/perl@4800
Diffstat (limited to 'dump.c')
| -rw-r--r-- | dump.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -485,6 +485,8 @@ Perl_do_op_dump(pTHX_ I32 level, PerlIO *file, OP *o) else { if (o->op_private & HINT_STRICT_REFS) sv_catpv(tmpsv, ",STRICT_REFS"); + if (o->op_private & OPpOUR_INTRO) + sv_catpv(tmpsv, ",OUR_INTRO"); } } else if (o->op_type == OP_CONST) { |