Changeset 8574

Timestamp:

10/03/09 07:13:11 (2 years ago)

Author:

azawawi

Message:

[Padre] Fixed undef ref when using "new" startup mode

File:

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

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

@@ -4750 +4750 @@
     );
 
-    # We may run within window startup, there may be no "current" or "document":
-    if ( defined( $self->current ) and defined( $self->current->document ) ) {
+    # We may run within window startup, there may be no "current" or
+    # "document" or "document->file":
+    if (    defined( $self->current )
+        and defined( $self->current->document )
+        and defined( $self->current->document->file ) )
+    {
         my $document = $self->current->document;
         $variable_data{'f'} = $document->file->{filename};