Changeset 5342

Timestamp:

06/18/09 22:50:34 (3 years ago)

Author:

azawawi

Message:

[Padre] a quick fix to the style bug.

File:

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

trunk/Padre/lib/Padre/Wx/Editor.pm

@@ -205 +205 @@
         my $f = 'Wx::' . $k;
         no strict "refs";    ## no critic
-        my $v = eval { defined &{$f} ? $f->() : undef };
+        my $v = eval { $f->() };
         if ( $@ ) {
             $f = 'Padre::Constant::' . $k;
-            $f =~ s/PADRE_//;
             $v = eval { defined &{$f} ? $f->() : undef };
             if ( $@ ) {