summaryrefslogtreecommitdiff
path: root/mediawiki-blockquote
blob: 46de0cddb9cb6f8dfc67c95808c11445b1fc9046 (plain)
  1. #!/usr/bin/perl
  2. # work around in mediawiki bug parsing blockquote tags on same line
  3. use warnings;
  4. use strict;
  5. use Path::Tiny;
  6. my $infile = shift;
  7. my $outfile = shift || $infile;
  8. $_ = path($infile)->slurp_utf8;
  9. s!\n*(</?blockquote>)\n*!\n$1\n!g;
  10. path($outfile)->spew_utf8($_);
  11. 1;