Changeset 549

Timestamp:

11/13/09 18:34:07 (15 years ago)

Author:

nanardon

Message:

• check base is correctly instanciate instead having perl error

File:

• LATMOS-Accounts/bin/la-config (modified) (2 diffs)

LATMOS-Accounts/bin/la-config

@@ -36 +36 @@
 
 Perform query on this base
-
 
 =item --lb
@@ -85 +84 @@
         ) foreach($labase->list_canonical_fields($otype, 'a'));
     } else {
-        my $labase = $base ? $LA->base($base) : $LA->default_base;
+        my $labase = $base ? $LA->base($base) : $LA->default_base
+            or die "Cannot instanciate " .
+            $base ? $base : $LA->default_base_name . "\n";
         printf "Supported object type by base %s\n",
-        $base ? $base : $LA->default_base_name;
+            $base ? $base : $LA->default_base_name;
         print "  $_\n" foreach($labase->list_supported_objects);
     }