some debug statements

ido50 · Jan 28, 2010 · d231823 · d231823
1 parent c9b61c4
commit d231823
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/lib/Tenjin/Context.pm b/lib/Tenjin/Context.pm
@@ -17,6 +17,8 @@ sub evaluate {
 	my $s = $filename ? "# line 1 \"$filename\"\n" : '';  # line directive
 	$s .= $script;
 
+	print STDERR "============================\n=========================\n$s\n================================\n====================\n";
+
 	my $ret;
 	if ($Tenjin::USE_STRICT) {
 		$ret = eval($s);
@@ -34,7 +36,9 @@ sub to_func {
 
 	$script = ($script =~ /\A.*\Z/s) && $& if $Tenjin::BYPASS_TAINT;
 	my $s = $filename ? "# line 1 \"$filename\"\n" : '';  # line directive
-	$s = "${s}sub { my (\$context) = \@_; $script }";
+	$s .= "sub { my (\$context) = \@_; $script }";
+
+	print STDERR "============================\n=========================\n$s\n================================\n====================\n";
 
 	my $ret;
 	if ($Tenjin::USE_STRICT) {