Give the 'local' declarator a new key, such that 'local our'

declaration don't have multiple 'd' keys.

Subject:  [PATCH] mad: different key for the locale declarator
Message-Id:  <20070508171125.GI17043@ostwald>

p4raw-id: //depot/perl@31208

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};