summaryrefslogtreecommitdiff
path: root/mad/Nomad.pm
diff options
context:
space:
mode:
Diffstat (limited to 'mad/Nomad.pm')
-rwxr-xr-xmad/Nomad.pm1
1 files changed, 1 insertions, 0 deletions
diff --git a/mad/Nomad.pm b/mad/Nomad.pm
index e425467038..4fdd3a89ee 100755
--- a/mad/Nomad.pm
+++ b/mad/Nomad.pm
@@ -440,6 +440,7 @@ sub newtype {
sub madness {
my $self = shift;
my @keys = split(' ', shift);
+ @keys = map { $_ eq 'd' ? ('k', 'd') : $_ } @keys;
my @vals = ();
for my $key (@keys) {
my $madprop = $self->{mp}{$key};