Fix trailing whitespace in header comments

diff --git a/lib/SQL/Translator/Utils.pm b/lib/SQL/Translator/Utils.pm
index ed3fabc..3f256aa 100644 (file)
--- a/lib/SQL/Translator/Utils.pm
+++ b/lib/SQL/Translator/Utils.pm
@@ -9,7 +9,7 @@ use Try::Tiny;
 use Carp qw(carp croak);
 
 our $VERSION = '1.60';
-our $DEFAULT_COMMENT = '-- ';
+our $DEFAULT_COMMENT = '--';
 
 use base qw(Exporter);
 our @EXPORT_OK = qw(
@@ -111,14 +111,14 @@ sub header_comment {
 
     my $header_comment =<<"HEADER_COMMENT";
 ${comment_char}
-${comment_char}Created by $producer
-${comment_char}Created on $now
+${comment_char} Created by $producer
+${comment_char} Created on $now
 ${comment_char}
 HEADER_COMMENT
 
     # Any additional stuff passed in
     for my $additional_comment (@_) {
-        $header_comment .= "${comment_char}${additional_comment}\n";
+        $header_comment .= "${comment_char} ${additional_comment}\n";
     }
 
     return $header_comment;
@@ -547,7 +547,7 @@ Will give three different results; specifically:
 
 =head2 $DEFAULT_COMMENT
 
-This is the default comment string, '-- ' by default.  Useful for
+This is the default comment string, '--' by default.  Useful for
 C<header_comment>.
 
 =head2 parse_mysql_version

diff --git a/t/12header_comment.t b/t/12header_comment.t
index 17c0911..84f5858 100644 (file)
--- a/t/12header_comment.t
+++ b/t/12header_comment.t
@@ -8,7 +8,7 @@ use SQL::Translator::Utils qw($DEFAULT_COMMENT header_comment);
 # Superfluous test, but that's ok
 use_ok("SQL::Translator::Utils");
 
-is($DEFAULT_COMMENT, '-- ', 'default comment');
+is($DEFAULT_COMMENT, '--', 'default comment');
 like(header_comment("foo"), qr/[-][-] Created by foo/, "Created by...");
 
 my $comm = header_comment("My::Producer",