X-Git-Url: http://andersk.mit.edu/gitweb/config-package-dev.git/blobdiff_plain/567091347bd3fe6087395e06f4d50dd24ff0571c..9350e9766b5a36e42b58140f18add1f6bab6b49c:/encode?ds=sidebyside

diff --git a/encode b/encode
index 48ba732..8153ca3 100755
--- a/encode
+++ b/encode
@@ -10,10 +10,12 @@
 # This encoding is intended to be human-readable, so that users can
 # determine the cause of conflicts between different configuration
 # packages.
+
+use strict;
+use warnings;
  
 $ARGV[0] =~ s,^/,,;
-split('', $ARGV[0]);
-foreach (@_){
+foreach (split('', $ARGV[0])) {
     if (m/[a-z0-9.-]/) {
 	print "$_";
     } elsif (m/[A-Z]/) {