From e71ce095883554363dacb466cd2ce5b96951a72e Mon Sep 17 00:00:00 2001
From: Doug Bell <doug@plainblack.com>
Date: Tue, 10 Aug 2010 21:18:22 -0500
Subject: [PATCH] add "pm" to list of verboten uploads

---
 lib/WebGUI/Storage.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/WebGUI/Storage.pm b/lib/WebGUI/Storage.pm
index 91a5e0f84..c24b51aaa 100644
--- a/lib/WebGUI/Storage.pm
+++ b/lib/WebGUI/Storage.pm
@@ -315,7 +315,7 @@ sub addFileFromFilesystem {
         return undef;
     }
     my $filename = (File::Spec->splitpath( $pathToFile ))[2];
-    if (isIn($self->getFileExtension($filename), qw(pl perl sh cgi php asp))) {
+    if (isIn($self->getFileExtension($filename), qw(pl perl sh cgi php asp pm))) {
         $filename =~ s/\./\_/g;
         $filename .= ".txt";
     }