Parent Directory | Revision Log | Patch
revision 1.21 by wakaba, Sun May 26 01:20:09 2002 UTC | revision 1.22 by wakaba, Wed May 29 11:05:53 2002 UTC | |
---|---|---|
# | Line 461 first one is used and the others are not | Line 461 first one is used and the others are not |
461 | =cut | =cut |
462 | ||
463 | sub _replace_hash_shift ($\%$\%) { | sub _replace_hash_shift ($\%$\%) { |
464 | shift; my $r = shift; my $n = $_[0]->{name}; | shift; my $r = shift; my $n = $_[0]->{name} . ':' . $_[0]->{ns}; |
465 | if ($$r{$n}) { | if ($$r{$n}) { |
466 | my $d = $$r{$n}; | my $d = $$r{$n}; |
467 | delete $$r{$n}; | delete $$r{$n}; |
|
admin@suikawiki.org | ViewVC Help |
Powered by ViewVC 1.1.24 |