farting with comments in the dictionary stuff

1 files changed, 4 insertions, 2 deletions

diff --git a/messages.pl b/messages.pl
index fe94a35..0d68f4d 100644
--- a/messages.pl
+++ b/messages.pl
@@ -35,10 +35,10 @@ while(<DATA>) {
 	s/^\w+\s+//;
 
 	my $orig = $_;
+	#warn "msg: $_\n";
 	s/"//g;
 	s/\\r//g;
 	s/\\n/\n/g;
-	#warn "msg: $_\n";
 
 	$total_in += (1 + length);
 
@@ -49,7 +49,9 @@ while(<DATA>) {
 		}
 	}
 
-	#warn "'$_'\n" if $label eq 'do_you_want';
+	my $w = $_;
+	$w =~ s/\n/\\n/g;
+	#warn "got: \"$w\"\n";
 	open my $out, ">msg.out" or die $!;
 	print $out $_;
 	close $out;