Cope if very few commodities on screen. Use ADJUST_BOX much more.

[ypp-sc-tools.db-live.git] / pctb / database-info-fetch

diff --git a/pctb/database-info-fetch b/pctb/database-info-fetch
index d3619caba4b3f15b70c219cc8b46e5b7a986c4d2..3b8db77c4209b05f9537b34f29e744a354d1b855 100755 (executable)
--- a/pctb/database-info-fetch
+++ b/pctb/database-info-fetch
@@ -72,7 +72,7 @@ sub json_convert_shim ($) {
     my ($json) = @_;
     # In JSON.pm 2.x, jsonToObj prints a warning to stderr which
     # our callers don't like at all.
-    if ($JSON::VERSION >= 2) {
+    if ($JSON::VERSION >= 2.0) {
        return from_json($json);
     } else {
        return jsonToObj($json);