Mercurial > hg > egg-tcls

changeset 445:dbe9e233f564

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Cosmetics.
author Matti Hamalainen <ccr@tnsp.org>
date Thu, 28 Sep 2017 15:16:40 +0300
parents fe671cd76ecc
children ba559d5d44db
files fetch_weather.pl
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/fetch_weather.pl	Thu Sep 28 15:15:23 2017 +0300
+++ b/fetch_weather.pl	Thu Sep 28 15:16:40 2017 +0300
@@ -388,7 +388,7 @@
       if ($fetch_meta || opt_chk_bool("force_update"))
       {
         my $uri = opt_get("tiehallinto_meta_url");
-        print STDERR "Fetching Tiehallinto static meta data from $uri\n" if (opt_get_int("debug") > 1);
+        print STDERR "Fetching Tiehallinto static meta data from ".$uri."\n" if (opt_get_int("debug") > 1);
         my $res = fetch_http($uri);
         die("Failed to fetch $uri data.\n") unless ($res->code <= 200 && $res->code <= 201);
 
@@ -405,7 +405,7 @@
       }
       else
       {
-        print STDERR "Using CACHED Tiehallinto static meta data from '$meta_file'.\n" if (opt_get_int("debug") > 0);
+        print STDERR "Using CACHED Tiehallinto static meta data from '".$meta_file."'.\n" if (opt_get_int("debug") > 0);
         $meta_str = read_text($meta_file);
       }
 
@@ -418,7 +418,7 @@
       if ($fetch_meta)
       {
         # Save new cache, in more optimal form, if needed.
-        print STDERR "Storing to cache '$meta_file'.\n" if (opt_get_int("debug") > 0);
+        print STDERR "Storing to cache '".$meta_file."'.\n" if (opt_get_int("debug") > 0);
         write_binary($meta_file, JSON->new->encode($json));
       }