From 3955b111495391f38478a395c8e1f863e8729fa5 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Wed, 24 Oct 2007 22:34:49 +0000
Subject: [PATCH] make sure that no files are accidently skipped, and emit
 comments via diag, not warn

---
 t/i18n/label.t | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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;
 	}