Fix for Bug 4451 Batch item tool can't process file with Windows line endings

Signed-off-by: Galen Charlton <gmcharlt@gmail.com>
Signed-off-by: Chris Cormack <chrisc@catalyst.net.nz>

diff --git a/tools/batchMod.pl b/tools/batchMod.pl
index 7c03812..84d1ae1 100755 (executable)
--- a/tools/batchMod.pl
+++ b/tools/batchMod.pl
@@ -169,7 +169,7 @@ if ($op eq "show"){
     my @contentlist;
     if ($filefh){
         while (my $content=<$filefh>){
-            chomp $content;
+            $content =~ s/[\r\n]*$//g;
             push @contentlist, $content if $content;
         }