path: root/mediawiki-blockquote

#!/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;