Changeset 1034

Timestamp:

11/17/08 03:57:32 (7 weeks ago)

Author:

adamk

Message:

Compiles now

Files:

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

trunk/lib/Padre/Plugin.pm

@@ -206 +206 @@
         my $self  = shift;
         my $items = shift;
-        my ($self, $items) = @_;
-
-        my $menu = Wx::Menu->new;
-        foreach my $item ( @items ) {
-                if (ref $m->[1] eq 'ARRAY') {
-                        my $submenu = $self->_menu_plugins_submenu($m->[1]);
-                        $menu->Append(-1, $m->[0], $submenu);
+        my $menu  = Wx::Menu->new;
+        foreach my $item ( @$items ) {
+                if (ref $item->[1] eq 'ARRAY') {
+                        my $submenu = $self->_menu_plugins_submenu($item->[1]);
+                        $menu->Append(-1, $item->[0], $submenu);
                 } else {
-                        Wx::Event::EVT_MENU( $self->win, $menu->Append(-1, $m->[0]), $m->[1] );
+                        Wx::Event::EVT_MENU( $self->win, $menu->Append( -1, $item->[0]), $item->[1] );
                 }
         }
-
         return $menu;
 }