summaryrefslogtreecommitdiff
path: root/mediawiki-uri-escape
blob: 196e1c6c24f87577bd6f9813b81ffb531623b421 (plain)
  1. #!/usr/bin/perl
  2. # work around modest URL parsing <https://github.com/jgm/pandoc/issues/1838>
  3. use warnings;
  4. use strict;
  5. use Path::Tiny;
  6. use Regexp::Common qw(net);
  7. my $infile = shift;
  8. my $outfile = shift || $infile;
  9. $_ = path($infile)->slurp_utf8;
  10. s/=-/%3D%2D/g;
  11. path($outfile)->spew_utf8($_);
  12. 1;