Show
Ignore:
Timestamp:
14.10.2013 09:59:05 (7 years ago)
Author:
davidb
Message:

Support for running under Cygwin added

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • main/trunk/greenstone2/perllib/dbutil/gdbmtxtgz.pm

    r27602 r28395  
    9696  while (defined ($infodb_line = <PIPEIN>)) 
    9797  { 
     98    $infodb_line =~ s/(\r\n)+$//; # more general than chomp 
     99 
    98100    if ($infodb_line =~ /^\[([^\]]+)\]$/) 
    99101    { 
     
    131133  while (defined ($infodb_line = <PIPEIN>)) 
    132134  { 
     135    $infodb_line =~ s/(\r\n)+$//; # more general than chomp 
     136 
    133137    if ($infodb_line =~ /^\[([^\]]+)\]$/) 
    134138    {