perl 5.005 needs an explicit mask for mkdir

[freeside.git] / bin / generate-raddb

diff --git a/bin/generate-raddb b/bin/generate-raddb
index e9580d6..1d0053a 100755 (executable)
--- a/bin/generate-raddb
+++ b/bin/generate-raddb
@@ -26,10 +26,12 @@ foreach ( keys %hash ) {
 #  print substr($_,0,24),"\n" if length($_)>24; 
 #  $max = length($_) if length($_)>$max;
 #everything >24 is still unique, at least with freeradius comprehensive dataset
-  print "  '". substr($_,0,24). "' => '$hash{$_}'\n";
+  print "  '". substr($_,0,24). "' => '$hash{$_}',\n";
 }
 
 print <<END;
+);
+
 1;
 END