--- lib/A3C/PHP.pm	2008/05/30 21:16:08	139
+++ lib/A3C/PHP.pm	2008/05/30 22:02:19	140
@@ -4,6 +4,7 @@
 use Parse::RecDescent;
 use Data::Dump qw/dump/;
 use File::Slurp;
+use Encode qw/decode/;
 
 =head1 NAME
 
@@ -16,11 +17,17 @@
 
 It currently ignores C<include> PHP function.
 
+=head1 CONFIG
+
+  $A3C::PHP::debug = 0;
+  $A3C::PHP::charset = 'iso-8859-2';
+
 =head1 METHODS
 
 =cut
 
 our $debug = 0;
+our $charset = 'iso-8859-2';
 
 our $perl = '';
 our $data;
@@ -126,10 +133,10 @@
 	$perl = '';
 	if ( $debug ) {
 		$::RD_TRACE = 1;
-		warn "PHP: $php\n";
+		warn "PHP [$charset]: $php\n";
 	}
 	my $parser = Parse::RecDescent->new( $grammar );
-	$parser->php_vars( $php );
+	$parser->php_vars( decode($charset,$php) );
 	warn "## GENERATED PERL:\n\n", $perl, "\n\n" if $debug;
 	my $data;
 	eval $perl;