Changeset 395

Timestamp:

06/12/04 17:36:20 (5 years ago)

Author:

kake

Message:

Bugfix - config values of '0' were being ignored.

Files:

• trunk/Build.PL (modified) (1 diff)

trunk/Build.PL

@@ -154 +154 @@
     my $type = $qset->{type} || "";
     my $var = $qset->{variable};
-    my $def = $existing_config{$var} || $qset->{default};
+    my $def = defined $existing_config{$var} ? $existing_config{$var}
+                                             : $qset->{default};
     my $val = $def;