Changeset 1044 for trunk/LATMOS-Accounts/bin/la-create

Timestamp:

05/31/12 19:50:39 (12 years ago)

Author:

nanardon

Message:

Kill redundant LATMOS::Account::default_base()

Use $LA->base(undef) to get default base instead

File:

• trunk/LATMOS-Accounts/bin/la-create (modified) (1 diff)

trunk/LATMOS-Accounts/bin/la-create

@@ -66 +66 @@
 
 my $LA = LATMOS::Accounts->new($config, noacl => 1);
-my $labase = $base ? $LA->base($base) : $LA->default_base;
+my $labase = $LA->base($base);
 $labase && $labase->load or die "Cannot load base";
 $labase->wexported(1);