Changeset 10604 for trunk/Padre/lib/Padre/Wx/Main.pm

Timestamp:

02/07/10 10:59:12 (2 years ago)

Author:

azawawi

Message:

More error checking and simplification

File:

• trunk/Padre/lib/Padre/Wx/Main.pm (modified) (1 diff)

trunk/Padre/lib/Padre/Wx/Main.pm

@@ -3661 +3661 @@
     my $self = shift;
     my $document = $self->current->document or return;
-    my $filename = $document->filename or return;
+    my $filename = $document->filename;
+
+    unless( $filename ) {
+        $self->error( Wx::gettext("No filename") );
+        return;
+    }
 
     if(Padre::Constant::WIN32) {