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