Fix encode script to work with Perl 5.12

[config-package-dev.git] / decode

diff --git a/decode b/decode
index 73a216af44f5255d498d07818a3217d434a579f1..ac2c2b975540cc62c1b45598c1b8b414aa4095c5 100755 (executable)
--- a/decode
+++ b/decode
@@ -1,4 +1,8 @@
 #!/usr/bin/perl
+
+use strict;
+use warnings;
+
 $ARGV[0] =~ s/\+([^+]*)\+/unparse($1)/eg;
 print $ARGV[0];
 sub unparse {