diff options
| author | Nicholas Clark <nick@ccl4.org> | 2010-01-26 12:00:56 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2010-05-20 16:08:57 +0100 |
| commit | e77da3b2183d0f9c5ea81dc5780d9a480fc4fa88 (patch) | |
| tree | 6f2dbd02b46b0eab355f2e17d89f8ccac00df1d6 /dump.c | |
| parent | 65ac1738675fbcf49a4c9d625c0c43dd73e6ff2f (diff) | |
| download | perl-e77da3b2183d0f9c5ea81dc5780d9a480fc4fa88.tar.gz | |
SvIVX() isn't valid on SVt_REGEXP
Diffstat (limited to 'dump.c')
| -rw-r--r-- | dump.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -1596,7 +1596,7 @@ Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bo } if ((type >= SVt_PVIV && type != SVt_PVAV && type != SVt_PVHV && type != SVt_PVCV && !isGV_with_GP(sv) && type != SVt_PVFM - && type != SVt_PVIO) + && type != SVt_PVIO && type != SVt_REGEXP) || (type == SVt_IV && !SvROK(sv))) { if (SvIsUV(sv) #ifdef PERL_OLD_COPY_ON_WRITE |