Always put parens on method calls.

[gknop/Perl-Critic.git] / lib / Perl / Critic / Document.pm

diff --git a/lib/Perl/Critic/Document.pm b/lib/Perl/Critic/Document.pm
index 12eefa0..5f3f477 100644 (file)
--- a/lib/Perl/Critic/Document.pm
+++ b/lib/Perl/Critic/Document.pm
@@ -168,7 +168,8 @@ sub find_any {
 
 sub filename {
     my ($self) = @_;
 
 sub filename {
     my ($self) = @_;

-    return $self->{_doc}->can('filename') ? $self->{_doc}->filename : undef;
+    my $doc = $self->{_doc};
+    return $doc->can('filename') ? $doc->filename() : undef;

 }
 
 #-----------------------------------------------------------------------------
 }
 
 #-----------------------------------------------------------------------------