Index: Padre/lib/Padre/Document/Perl.pm
===================================================================
--- Padre/lib/Padre/Document/Perl.pm	(revision 14158)
+++ Padre/lib/Padre/Document/Perl.pm	(working copy)
@@ -2018,6 +2018,7 @@
 	require File::Which;
 	my $filename = File::Which::which($text);
 	return $filename if defined $filename;
+	return;
 }
 
 1;