Changeset 28395 for main/trunk/greenstone2/perllib/dbutil/gdbmtxtgz.pm

Timestamp:

2013-10-14T09:59:05+13:00 (11 years ago)

Author:

davidb

Message:

Support for running under Cygwin added

File:

• main/trunk/greenstone2/perllib/dbutil/gdbmtxtgz.pm (modified) (2 diffs)

main/trunk/greenstone2/perllib/dbutil/gdbmtxtgz.pm

@@ -96 +96 @@
   while (defined ($infodb_line = <PIPEIN>))
   {
+    $infodb_line =~ s/(\r\n)+$//; # more general than chomp
+
     if ($infodb_line =~ /^\[([^\]]+)\]$/)
     {
@@ -131 +133 @@
   while (defined ($infodb_line = <PIPEIN>))
   {
+    $infodb_line =~ s/(\r\n)+$//; # more general than chomp
+
     if ($infodb_line =~ /^\[([^\]]+)\]$/)
     {