diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-11-28 13:07:17 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-11-28 13:07:17 +0000 |
| commit | 6b377df57679ab68ed17b736ebee0458acb25b21 (patch) | |
| tree | 2c925b6adb0c70eb8851e0b8a76204551ff6e4ac /pp.c | |
| parent | d53d2b93ae88ad7aee0d6be2e225d148d9f90674 (diff) | |
| download | perl-6b377df57679ab68ed17b736ebee0458acb25b21.tar.gz | |
fix typo in pp_defined() causing C<defined %tied> to fail
p4raw-id: //depot/perl@2345
Diffstat (limited to 'pp.c')
| -rw-r--r-- | pp.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -727,11 +727,11 @@ PP(pp_defined) RETPUSHNO; switch (SvTYPE(sv)) { case SVt_PVAV: - if (AvMAX(sv) >= 0 || SvGMAGICAL(sv)) + if (AvMAX(sv) >= 0 || SvRMAGICAL(sv)) RETPUSHYES; break; case SVt_PVHV: - if (HvARRAY(sv) || SvGMAGICAL(sv)) + if (HvARRAY(sv) || SvRMAGICAL(sv)) RETPUSHYES; break; case SVt_PVCV: |