From 0ecf0722edb04fafda4192893a9f4c6a2ea8a29e Mon Sep 17 00:00:00 2001
From: Tomaz Solc <tomaz.solc@tablix.org>
Date: Mon, 16 Jun 2014 10:36:20 +0200
Subject: Python files have 3 digits in the name now.

---
 perl2python.pl | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'perl2python.pl')

diff --git a/perl2python.pl b/perl2python.pl
index 98a2963..34438f9 100644
--- a/perl2python.pl
+++ b/perl2python.pl
@@ -1,3 +1,6 @@
+# usage:
+#
+# perl perl2python.pl --input=Text-Unidecode-1.00_01/lib/Text/Unidecode --output unidecode
 use Getopt::Long;
 
 my $input = ".";
@@ -21,6 +24,7 @@ sub python_escape {
 # print "$input\n";
 
 push(@INC, $input);
+mkdir $output;
 
 my $n;
 for($n = 0; $n < 256; $n++) {
@@ -31,7 +35,7 @@ for($n = 0; $n < 256; $n++) {
 
 	# print "$n\n";
 
-	open(PYTHON, sprintf(">%s/x%02x.py", $output, $n));
+	open(PYTHON, sprintf(">%s/x%03x.py", $output, $n));
 	print PYTHON "data = (\n";
 
 	my $m = 0;
-- 
cgit v1.2.1