Mercurial > hg > egg-tcls

diff fetch_weather.pl @ 242:ffd49b583e34

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Rename function.
author Matti Hamalainen <ccr@tnsp.org>
date Mon, 19 Jan 2015 17:50:56 +0200
parents a1d6e2d8789e
children aef2cf1dc3be
line wrap: on
line diff
--- a/fetch_weather.pl	Mon Jan 19 16:33:43 2015 +0200
+++ b/fetch_weather.pl	Mon Jan 19 17:50:56 2015 +0200
@@ -268,7 +268,7 @@
 
 my $th_rain_states_k = join("|", map {quotemeta} sort { length($b)<=>length($a) } keys %th_rain_states);
 
-sub translate_th_rain($)
+sub translate_rain($)
 {
   my $tmp = $_[0];
   $tmp =~ s/($th_rain_states_k)/$th_rain_states{$1}/igo;
@@ -450,7 +450,7 @@
             get_node_lc($fdata, "text", 2),
             # and the rest
             get_node_lc($fdata, "text", 3),
-            translate_th_rain(get_node($fdata, "text", 4)),
+            translate_rain(get_node($fdata, "text", 4)),
             get_node_lc($fdata, "text", 5),
           ];
         }