Index: Padre/Document/Perl/QuickFix/StrictWarnings.pm
===================================================================
--- Padre/Document/Perl/QuickFix/StrictWarnings.pm	(revision 19832)
+++ Padre/Document/Perl/QuickFix/StrictWarnings.pm	(working copy)
@@ -67,8 +67,8 @@
 		# insert 'use strict; use warnings;' at the top
 		my $first = $doc->find_first(
 			sub {
-				return $_[1]->isa('PPI::Statement')
-					or $_[1]->isa('PPI::Structure');
+				$_[1]->isa('PPI::Statement')
+				  or $_[1]->isa('PPI::Structure')
 			}
 		);
 		$replace = "use strict;\nuse warnings;\n";