id,summary,reporter,owner,description,type,status,priority,milestone,component,version,resolution,keywords,cc
1266,"Padre::Plugin::PerlCritic, fix for missing version",bowtie,azawawi,"{{{Padre::Plugin::PerlCritic}}}, fix for missing version, so as to be able to run from trunk, also menu mod,

{{{#!diff
Index: lib/Padre/Plugin/PerlCritic.pm
===================================================================
--- lib/Padre/Plugin/PerlCritic.pm	(revision 15068)
+++ lib/Padre/Plugin/PerlCritic.pm	(working copy)
@@ -7,6 +7,7 @@
 use warnings;
 use Padre::Wx     ();
 use Padre::Plugin ();
+our $VERSION = 0.12;
 
 our @ISA = 'Padre::Plugin';
 
@@ -18,13 +19,28 @@
 	Wx::gettext('Perl Critic');
 }
 
-sub menu_plugins_simple {
+sub menu_plugins {
 	my $self = shift;
-	return $self->plugin_name => [
-		Wx::gettext('Perl::Critic Current Document') => sub {
-			$self->critic(@_);
-			}
-	];
+	my $main = shift;
+
+	# Create a manual menu item
+	my $item = Wx::MenuItem->new(
+		undef,
+		-1,
+		$self->plugin_name,
+	);
+	Wx::Event::EVT_MENU(
+		$main,
+		$item,
+		sub {
+			local $@;
+			eval {
+				$self->critic(@_);
+			};
+		},
+	);
+
+	return $item;
 }
 
 sub critic {
}}}",enhancement,closed,major,,plugins,0.87,fixed,missing version,