Changeset 7331 for inc

Timestamp:

10/06/05 00:58:17 (3 years ago)

Author:

gaal

Message:

PugsBuild::Config should check for existence, not defindedness, of known
lookup elements.

Files:

• inc/PugsBuild/Config.pm (modified) (1 diff)

inc/PugsBuild/Config.pm

@@ -70 +70 @@
 sub lookup {
     my($class, $what) = @_;
+    die "unknown option: $what" unless exists $Conf->{$what};
     my $value = $Conf->{$what};
-    die "unknown option: $what" unless defined $value;
     return $value;
 }