diff --git a/t/i18n/label.t b/t/i18n/label.t
index 5cb6315ba..65a984f77 100644
--- a/t/i18n/label.t
+++ b/t/i18n/label.t
@@ -114,8 +114,8 @@ sub label_finder_pm {
 
 sub obj_finder_pm {
 	return unless /\.pm$/;
-	if ($File::Find::name =~ m#(?:Help|i18n)/?$#) {
-		warn "Pruned $File::Find::name\n";
+	if ($File::Find::name =~ m#/(?:Help|i18n)/?$#) {
+		diag "Pruned $File::Find::name\n";
 		$File::Find::prune=1;
 		return;
 	}