| 16 |
|
|
| 17 |
sub create_pattern1 ($) { |
sub create_pattern1 ($) { |
| 18 |
my $s = quotemeta shift; |
my $s = quotemeta shift; |
| 19 |
$s =~ s/\\\*/([^.]+)/g; |
$s =~ s/\\\*/(.+)/g; |
| 20 |
return $s; |
return $s; |
| 21 |
} # create_pattern1 |
} # create_pattern1 |
| 22 |
|
|
| 91 |
} |
} |
| 92 |
}ges; |
}ges; |
| 93 |
|
|
| 94 |
$source_text =~ s{\[\[([A-Z]+):([^]]+)\]\]} |
$source_text =~ s{\[\[([A-Z ]+):([^]]+)\]\]} |
| 95 |
{<em class=rfc2119 title="$1">$2</em>}gs; |
{<em class=rfc2119 title="$1">$2</em>}gs; |
| 96 |
|
|
| 97 |
#$source_text =~ s[<title>][<base href="http://www.whatwg.org/specs/web-apps/current-work/"><title>]; |
#$source_text =~ s[<title>][<base href="http://www.whatwg.org/specs/web-apps/current-work/"><title>]; |
Parent Directory
| 
Revision Log
| 
Patch