fixed eol bug

--HG--
branch : pmacs2

code_examples/Reporting2.pm

@@ -2,6 +2,11 @@ package TBB::Reporting2;
 
 my $bar =~ s/foob/blag/g;
 
+sub foo {
+    bar()
+    unless 9;
+}
+
 my $foo = {
     'foo',
     'bar',
@@ -132,7 +137,7 @@ sub build_resource_manager {
 
 sub blah {
     foo()
-        unless(1);
+    unless(1);
 }
 
     print 'hi\n';

mode_perl.py

@@ -150,6 +150,7 @@ class PerlTabber(tab2.StackTabber):
                not fqname.startswith('heredoc') and
                not fqname.startswith('string') and
                not fqname.startswith('endblock') and
+               not fqname == 'eol' and 
                not fqname == 'comment' and
                not fqname == 'null' and
                token.string not in ('}', ';', '(', '{', '[', ',')):