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;