Changeset 844

Timestamp:

11/09/08 02:19:02 (3 years ago)

Author:

fayland

Message:

cleanup code.

File:

• trunk/lib/Padre/Wx/MainWindow.pm (modified) (3 diffs)

trunk/lib/Padre/Wx/MainWindow.pm

@@ -1564 +1564 @@
     }
     
-    my $code;
     my $src = $self->selected_text;
     my $doc = $self->selected_document;
-    if ( $src ) {
-        $code = $src;
-    } else {
-        $code = $doc->text_get;
-    }
+    my $code = ( $src ) ? $src : $doc->text_get;
     
     return unless ( defined $doc and length($doc) );
@@ -1593 +1588 @@
     my ( $self ) = @_;
     
-    my $code;
     my $src = $self->selected_text;
     my $doc = $self->selected_document;
-    if ( $src ) {
-        $code = $src;
-    } else {
-        $code = $doc->text_get;
-    }
+    my $code = ( $src ) ? $src : $doc->text_get;
     
     # remove ending space
@@ -1650 +1640 @@
     my ($self, $type) = @_;
     
-    my $code;
-    my $src = $self->selected_text;
-    my $doc = $self->selected_document;
-    if ( $src ) {
-        $code = $src;
-    } else {
-        $code = $doc->text_get;
-    }
-    
+    my $src  = $self->selected_text;
+    my $doc  = $self->selected_document;
+    my $code = ( $src ) ? $src : $doc->text_get;
+
     return unless ( defined $code and length($code) );