diff options
author | Nicholas Clark <nick@ccl4.org> | 2011-05-14 22:13:56 +0100 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2011-05-19 10:18:16 +0100 |
commit | 56fd1190657e040f5b17c8a00628205a045093e3 (patch) | |
tree | b4eabddbd8b331a7d6b7db150961c17dde7d93cc /regen/regen_lib.pl | |
parent | cc49830d6031e8e74c0426f77e2b3589e5774765 (diff) | |
download | perl-56fd1190657e040f5b17c8a00628205a045093e3.tar.gz |
Add a 'quote' argument to read_only_top(), to pass in an optional Tolkien.
Use this in embed.pl for perlapi.c, and reentr.pl for reentr.c.
Diffstat (limited to 'regen/regen_lib.pl')
-rw-r--r-- | regen/regen_lib.pl | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/regen/regen_lib.pl b/regen/regen_lib.pl index 4715236050..dcee0a67f5 100644 --- a/regen/regen_lib.pl +++ b/regen/regen_lib.pl @@ -129,6 +129,7 @@ EOM ? wrap('# ', '# ', $raw) . "\n" : wrap('/* ', $style, $raw) . " */\n\n"; $cooked =~ tr/\0/ /; # Don't break Larry's name etc $cooked =~ s/ +$//mg; # Remove all trailing spaces + $cooked =~ s! \*/\n!$args{quote}!s if $args{quote}; return $cooked; } |