Commits

Anonymous committed 4294bb5

Handle space properly.

  • Participants
  • Parent commits 5a14d53

Comments (0)

Files changed (1)

gen-shlomif-at-iglu-sig

 
 my $quote = $quotes[rand(scalar(@quotes))];
 
-$quote =~ s{\s+\z}{}ms;
-$quote =~ s{\A\s+}{}ms;
+$quote =~ s{\n+\z}{}ms;
+$quote =~ s{\A\n+}{}ms;
 
 my $text = <<"EOF";
 -----------------------------------------------------------------
 EOF
 
 chomp($text);
+
+binmode STDOUT, ":utf8";
 print $text;