make ikiwiki-prefix-directives use warnings and strict
parent
c93a162fc5
commit
d5eaf73689
|
@ -1,4 +1,7 @@
|
||||||
#!/usr/bin/perl -i
|
#!/usr/bin/perl -i
|
||||||
|
use warnings;
|
||||||
|
use strict;
|
||||||
|
|
||||||
undef $/; # process whole files at once
|
undef $/; # process whole files at once
|
||||||
|
|
||||||
my $regex = qr{
|
my $regex = qr{
|
||||||
|
@ -23,7 +26,7 @@ my $regex = qr{
|
||||||
\]\] # directive closed
|
\]\] # directive closed
|
||||||
}sx;
|
}sx;
|
||||||
|
|
||||||
sub handle_directive($$$$) {
|
sub handle_directive {
|
||||||
my $escape = shift;
|
my $escape = shift;
|
||||||
my $prefix = shift;
|
my $prefix = shift;
|
||||||
my $directive = shift;
|
my $directive = shift;
|
||||||
|
|
Loading…
Reference in New Issue