X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=scpubgit%2FQ-Branch.git;a=blobdiff_plain;f=maint%2Fpodregen;fp=maint%2Fpodregen;h=f07609f9c400ad09c0c5cb6ea4fd8a70a1a98030;hp=9869868e4d391c121e2d8d4eed110bc2bab7d2ee;hb=e376aa8053a377ca85e9a16205132b30436b2ce5;hpb=49dba492babc1248fa1acbf75f1bfd237f2a6ef3

diff --git a/maint/podregen b/maint/podregen
index 9869868..f07609f 100755
--- a/maint/podregen
+++ b/maint/podregen
@@ -52,7 +52,7 @@ while ($slurp =~ m/\G$expr_re/gc) {
   print $qpre.$qindent.$qtype;
   my ($sql, @bind) = $sqla->render_statement($expr);
   my $fsql = (ref($sql) ? $sqlaf->format(@$sql) : $sql);
-  $fsql =~ s/^/$indent/mg;
+  s/^/$indent/mg, s/\n+\Z// for $fsql;
   print $fsql."\n";
   print reformat(\@bind, $qindent);
   print "\n";