urosm
/
ikiwiki
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Squelch regex deprecation warnings from Perl 5.22. 

Specifically:

"Unescaped left brace in regex is deprecated, passed through in regex"
master
Amitai Schlair 2015-06-14 21:35:51 -04:00
parent 650ba28851
commit 604d0391ba
3 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
IkiWiki/Plugin/teximg.pm
View File

@ -146,8 +146,8 @@ sub gen_image ($$$$) {
my $tex = $config{teximg_prefix};
$tex .= '\['.$code.'\]';
$tex .= $config{teximg_postfix};
$tex =~ s!\\documentclass{article}!\\documentclass[${height}pt]{article}!g;
$tex =~ s!\\documentclass{scrartcl}!\\documentclass[${height}pt]{scrartcl}!g;
$tex =~ s!\\documentclass\{article}!\\documentclass[${height}pt]{article}!g;
$tex =~ s!\\documentclass\{scrartcl}!\\documentclass[${height}pt]{scrartcl}!g;
my $tmp = eval { create_tmp_dir($digest) };
if (! $@ &&

2
pm_filter
View File

@ -28,6 +28,6 @@ elsif (/^use lib/) {
elsif ($. == 1 && ($ENV{NOTAINT}=0) && m{^(#!.*perl.*?)$}) {
$_=qq{$1 -T\n};
}
elsif (/^\$ENV{PATH}="(.*)";/) {
elsif (/^\$ENV\{PATH}="(.*)";/) {
$_="\$ENV{PATH}=\"$1:$prefix/bin\";\n";
}

4
t/inline.t
View File

@ -52,7 +52,7 @@ $blob = readfile("t/tmp/out/friends.html");
like($blob, qr{\Q$add_new_post\E}, 'postform=yes forces postform');
like($blob, qr{<input type="hidden" name="from" value="friends"},
'implicit rootpage is /friends');
like($blob, qr[this page is {friends/garrus}.*this page is {friends/liara}]s,
like($blob, qr[this page is \{friends/garrus}.*this page is \{friends/liara}]s,
'first two pages in desired sort order are present');
unlike($blob, qr{friends/(?:midna|telma)},
'pages excluded by show should not be present');
@ -62,7 +62,7 @@ unlike($blob, qr{\Q$add_new_post\E}, 'default is no postform');
$blob = readfile("t/tmp/out/enemies.html");
unlike($blob, qr{\Q$add_new_post\E}, 'postform=no forces no postform');
like($blob, qr[this page is {enemies/zant}.*this page is {enemies/rachni}]s,
like($blob, qr[this page is \{enemies/zant}.*this page is \{enemies/rachni}]s,
'first two pages in reversed sort order are present');
unlike($blob, qr{enemies/(?:benezia|geth)},
'pages excluded by show should not be present');