| 59 |
$code =~ s/\$$_\b/$Info->{const}->{$_}/ge; |
$code =~ s/\$$_\b/$Info->{const}->{$_}/ge; |
| 60 |
} |
} |
| 61 |
$code =~ s/__FUNCPACK__/$Info->{module_name}/g; |
$code =~ s/__FUNCPACK__/$Info->{module_name}/g; |
| 62 |
$code =~ s/<Q:([^:]+):([^>]+)>/literal $Info->{Namespace}->{$1}.$2/ge; |
$code =~ s{<Q:([^:]+):([^>]+)>}{ |
| 63 |
|
if ($Info->{Namespace}->{$1}) { |
| 64 |
|
literal $Info->{Namespace}->{$1}.$2; |
| 65 |
|
} else { |
| 66 |
|
warn qq(Namespace prefix "$1" not defined); |
| 67 |
|
literal $2; |
| 68 |
|
} |
| 69 |
|
}ge; |
| 70 |
|
|
| 71 |
$Info->{-message_error_used} = 1 if $code =~ /\buse\s+Message::Util::Error\b/; |
$Info->{-message_error_used} = 1 if $code =~ /\buse\s+Message::Util::Error\b/; |
| 72 |
if (not $Info->{-message_error_used} and |
if (not $Info->{-message_error_used} and |
Parent Directory
| 
Revision Log
| 
Patch