blob: 46de0cddb9cb6f8dfc67c95808c11445b1fc9046 (
plain)
- #!/usr/bin/perl
- # work around in mediawiki bug parsing blockquote tags on same line
- use warnings;
- use strict;
- use Path::Tiny;
- my $infile = shift;
- my $outfile = shift || $infile;
- $_ = path($infile)->slurp_utf8;
- s!\n*(</?blockquote>)\n*!\n$1\n!g;
- path($outfile)->spew_utf8($_);
- 1;
|