From 3a185647ff9fe040582c9ab00d51fc3384631ed8 Mon Sep 17 00:00:00 2001
From: moculus <none@none>
Date: Sun, 15 Jul 2007 14:30:41 +0000
Subject: [PATCH] fixed eol bug

--HG--
branch : pmacs2
---
 code_examples/Reporting2.pm | 7 ++++++-
 mode_perl.py                | 1 +
 2 files changed, 7 insertions(+), 1 deletion(-)

diff --git a/code_examples/Reporting2.pm b/code_examples/Reporting2.pm
index ecaf425..15e2730 100644
--- a/code_examples/Reporting2.pm
+++ b/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';
diff --git a/mode_perl.py b/mode_perl.py
index 4468e4e..8873d1e 100644
--- a/mode_perl.py
+++ b/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 ('}', ';', '(', '{', '[', ',')):