aboutsummaryrefslogtreecommitdiff
path: root/messages.pl
diff options
context:
space:
mode:
Diffstat (limited to 'messages.pl')
-rw-r--r--messages.pl6
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;