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',

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 ('}', ';', '(', '{', '[', ',')):