X-Git-Url: http://git.vanrenterghem.biz/git.ikiwiki.info.git/blobdiff_plain/1b03a06c8c0dbf59469ff30d09a0c9c3051e0b00..40257dc62190e90bab468e88c89b59dc24999725:/ikiwiki-prefix-directives diff --git a/ikiwiki-prefix-directives b/ikiwiki-prefix-directives index d35c41f30..f14fe339f 100755 --- a/ikiwiki-prefix-directives +++ b/ikiwiki-prefix-directives @@ -1,4 +1,7 @@ #!/usr/bin/perl -i +use warnings; +use strict; + undef $/; # process whole files at once my $regex = qr{ @@ -23,7 +26,7 @@ my $regex = qr{ \]\] # directive closed }sx; -sub handle_directive($$$$) { +sub handle_directive { my $escape = shift; my $prefix = shift; my $directive = shift;