[Bio] / FigKernelPackages / Tracer.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/Tracer.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.79, Thu Nov 9 21:12:46 2006 UTC revision 1.80, Fri Feb 9 22:53:22 2007 UTC
# Line 2974  Line 2974 
2974      my $line = <$handle>;      my $line = <$handle>;
2975      # Only proceed if we found something.      # Only proceed if we found something.
2976      if (defined $line) {      if (defined $line) {
2977          # Remove the new-line.          # Remove the new-line. We are a bit over-cautious here because the file may be coming in via an
2978          chomp $line;          # upload control and have a nonstandard EOL combination.
2979          Trace("Line read: $line") if T(File => 4);          $line =~ s/(\r|\n)+$//;
2980            # Here we do some fancy tracing to help in debugging complicated EOL marks.
2981            if (T(File => 4)) {
2982                my $escapedLine = $line;
2983                $escapedLine =~ s/\n/\\n/g;
2984                $escapedLine =~ s/\r/\\r/g;
2985                $escapedLine =~ s/\t/\\t/g;
2986                Trace("Line read: -->$escapedLine<--");
2987            }
2988          # If the line is empty, return a single empty string; otherwise, parse          # If the line is empty, return a single empty string; otherwise, parse
2989          # it into fields.          # it into fields.
2990          if ($line eq "") {          if ($line eq "") {

Legend:
Removed from v.1.79  
changed lines
  Added in v.1.80

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3