Changeset 9764 for trunk/Padre/lib/Padre/Wx/Dialog/OpenResource.pm

Timestamp:

12/17/09 22:32:25 (2 years ago)

Author:

azawawi

Message:

Updates Changes and performed a Perl tidy

File:

• trunk/Padre/lib/Padre/Wx/Dialog/OpenResource.pm (modified) (4 diffs)

trunk/Padre/lib/Padre/Wx/Dialog/OpenResource.pm

@@ -320 +320 @@
             my $num_selected = scalar @matches;
             if ( $num_selected == 1 ) {
-                $self->_status_text->ChangeValue( $self->_path($self->_matches_list->GetClientData( $matches[0])) );
+                $self->_status_text->ChangeValue( $self->_path( $self->_matches_list->GetClientData( $matches[0] ) ) );
                 $self->_copy_button->Enable(1);
             } elsif ( $num_selected > 1 ) {
@@ -456 +456 @@
     my @recent_files = ();
     foreach my $e (@$recently_used) {
-        push @recent_files,  $self->_path($e->value);
+        push @recent_files, $self->_path( $e->value );
     }
     @recent_files = sort { File::Basename::fileparse($a) cmp File::Basename::fileparse($b) } @recent_files;
@@ -516 +516 @@
     if ( $pos > 0 ) {
         $self->_matches_list->Select(0);
-        $self->_status_text->ChangeValue( $self->_path($self->_matches_list->GetClientData(0)) );
+        $self->_status_text->ChangeValue( $self->_path( $self->_matches_list->GetClientData(0) ) );
         $self->_status_text->Enable(1);
         $self->_copy_button->Enable(1);
@@ -534 +534 @@
 #
 sub _path {
-    my ($self, $path) = @_;
-    if(Padre::Constant::WIN32) {
+    my ( $self, $path ) = @_;
+    if (Padre::Constant::WIN32) {
         $path =~ s/\//\\/g;
     }