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 |