[ViewVC] Diff of: cvs/deliantra/Deliantra/Deliantra.pm

Comparing deliantra/Deliantra/Deliantra.pm (file contents):
Revision 1.37 by root, Sun Mar 12 23:21:53 2006 UTC vs.
Revision 1.43 by root, Mon Mar 13 03:30:37 2006 UTC

       }
    }
    my $attr = { };
-   my @import = $root || \%Crossfire::Data::DEFAULT_ATTR;
+   my @import = (\%Crossfire::Data::DEFAULT_ATTR, $root);
    my (%ignore);
    my (@section_order, %section, @attr_order);
    while (my $type = shift @import) {
       push @import, @{$type->{import} || []};
       for (@{$type->{ignore} || []}) {
          $ignore{$_}++ for ref $_ ? @$_ : $_;
       }
-      for ([general => ($type->{attr} || {})], @{$type->{section} || []}) {
+      for ([general => ($type->{attr} || [])], @{$type->{section} || []}) {
          my ($name, $attr) = @$_;
          push @section_order, $name;
+         warn "$name, $attr\n";#d#
          for (@$attr) {
             my ($k, $v) = @$_;
             push @attr_order, $k;
             $section{$name}{$k} ||= $v;
          }
       map !exists $section{$_} ? () : do {
             my $attr = delete $section{$_};
             [
                $_,
-               map exists $attr->{$_} && !ignore{$_} ? [$_ => delete $attr->{$_}] : (),
+               map exists $attr->{$_} && !$ignore{$_}
+                      ? [$_ => delete $attr->{$_}] : (),
                    @attr_order
             ]
          },
          exists $section{$_} ? [$_ => delete $section{$_}] : (),
          @section_order
    ];
-   use PApp::Util;
-   warn PApp::Util::dumpval $attr;
    $attr
 }
 sub arch_edit_sections {

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines