diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2014-10-12 06:48:08 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2014-10-12 06:48:42 -0700 |
| commit | f87fee257789c88855653ca87cff25399a9a7d28 (patch) | |
| tree | ca57cd39aff0de8470df642d79e96abbde8c5e78 /dump.c | |
| parent | dc9a870f288ed8bd9b03d457b526f614e720f40e (diff) | |
| download | perl-f87fee257789c88855653ca87cff25399a9a7d28.tar.gz | |
dump.c: Dump pmop patterns without trailing )
Diffstat (limited to 'dump.c')
| -rw-r--r-- | dump.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -642,8 +642,8 @@ Perl_do_pmop_dump(pTHX_ I32 level, PerlIO *file, const PMOP *pm) else ch = '/'; if (PM_GETRE(pm)) - Perl_dump_indent(aTHX_ level, file, "PMf_PRE %c%s%c%s\n", - ch, RX_PRECOMP(PM_GETRE(pm)), ch, + Perl_dump_indent(aTHX_ level, file, "PMf_PRE %c%.*s%c%s\n", + ch,(int)RX_PRELEN(PM_GETRE(pm)), RX_PRECOMP(PM_GETRE(pm)), ch, (pm->op_private & OPpRUNTIME) ? " (RUNTIME)" : ""); else Perl_dump_indent(aTHX_ level, file, "PMf_PRE (RUNTIME)\n"); |