Changeset 5313

Timestamp:

06/18/09 08:03:20 (3 years ago)

Author:

adamk

Message:

Should fix the constant 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 { $f->() };
-        if ($@) {
+        my $v = eval { defined &{$f} ? $f->() : undef };
+        if ( $@ ) {
             $f = 'Padre::Constant::' . $k;
             $f =~ s/PADRE_//;
-            $v = eval { $f->() };
-            if ($@) {
+            $v = eval { defined &{$f} ? $f->() : undef };
+            if ( $@ ) {
                 warn "invalid key '$k'\n";
                 next;