484 |
$self->{ns}->{number2uri}->{ $prefix } = 'urn:x-suika-fam-cx:msgpm:header:x-temp:'.$prefix; |
$self->{ns}->{number2uri}->{ $prefix } = 'urn:x-suika-fam-cx:msgpm:header:x-temp:'.$prefix; |
485 |
$nsuri = $self->{ns}->{number2uri}->{ $prefix }; |
$nsuri = $self->{ns}->{number2uri}->{ $prefix }; |
486 |
} |
} |
487 |
} elsif (($name =~ s/^([Xx]-[A-Za-z]+|[A-YZa-yz][A-Za-z]*)- |
} elsif (($name =~ s/^([Xx]-[A-Za-z0-9]+|[A-Za-z]*[A-WYZa-wyz0-9][A-Za-z0-9]*)- |
488 |
([Xx]-[A-Za-z]+|[A-YZa-yz][A-Za-z]*)-//x) |
([Xx]-[A-Za-z0-9]+|[A-Za-z0-9]*[A-WYZa-wyz0-9][A-Za-z0-9]*)-//x) |
489 |
|| $name =~ s/^([Xx]-[A-Za-z]+|[A-Za-z]+)-//) { |
|| $name =~ s/^([Xx]-[A-Za-z0-9]+|[A-Za-z0-9]*[A-WYZa-wyz0-9][A-Za-z0-9]*)-//) { |
490 |
my ($prefix1, $prefix2) = ($1, $2); |
my ($prefix1, $prefix2) = ($1, $2); |
491 |
my $original_prefix = $&; my $one_prefix = 0; |
my $original_prefix = $&; my $one_prefix = 0; |
492 |
unless ($prefix2) { |
unless ($prefix2) { |