From d0624b7cf9a84e58546dba1cfd310b10494f90bb Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Mon, 19 Nov 2007 04:52:42 +0000
Subject: [PATCH] no sense looking in the Help and i18n for POD

---
 t/Whitespace.t | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/t/Whitespace.t b/t/Whitespace.t
index 86c58e47f..0c7ca007d 100644
--- a/t/Whitespace.t
+++ b/t/Whitespace.t
@@ -48,6 +48,10 @@ if ($numFailedModules) {
 
 #----------------------------------------
 sub getWebGUIModules {
+	if ($File::Find::name =~ m#/(?:Help|i18n)/?$#) {
+		$File::Find::prune=1;
+		return;
+	}
 	push( @modules, $File::Find::name ) if /\.pm$/;
 }