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

make ikiwiki-prefix-directives use warnings and strict

master
Joey Hess 2008-01-28 14:24:27 -05:00
parent c93a162fc5
commit d5eaf73689
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ikiwiki-prefix-directives
View File

@ -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;