bin/fix_old_debtags_po

   1 #!/bin/sh
   2
   3 for i in po/debtags.*.po
   4 do
   5         perl -i -p -e 'if (/^\s*$/) { $seen=1 };
   6           if ($begin) { s/^"\s/"/ } $begin=0;
   7           s/^(msg(id|str) ")\s/$1/;
   8           if ($seen) { s/^"\s*\.\\n"/"\001"/g; s/\s*\\n//g; s/\001/\\n/g }
   9           if (/^msg(id|str) ""/) { $begin=1 };
  10           if (/^"\\n"/) { $begin=2 };
  11         ' $i
  12 done