Perlbot/perlbuut
1
0
Fork 0
mirror of https://github.com/perlbot/perlbuut synced 2025-06-08 02:25:40 -04:00
Code Issues Releases Wiki Activity

fixing output

Browse source
This commit is contained in:
Ryan Voots 2010-12-07 13:09:33 -05:00
parent c3a79defce
commit 57ed5ce046
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
plugins/tfw.pm
View file

@ -21,10 +21,12 @@ sub {
my $weathertext = $weather->as_text; my $weathertext = $weather->as_text;
$weathertext =~ s/\n/ /g; #filter them so when it goes ITS FUCKING NICE\nAND THUNDERING it'll display properly $weathertext =~ s/\n/ /g; #filter them so when it goes ITS FUCKING NICE\nAND THUNDERING it'll display properly
my $remarktext = $remark->as_text;
$remarktext =~ s/\n/ /g;
print $location->as_text; print $location->as_text;
print " "; print " ";
print $weather->as_text; print $weathertext;
print " "; print " ";
print '(', $remark->as_text, ')'; print '(', $remarktext, ')';
} }