/[gnump3d]/gnump3d/bin/gnump3d-index
ViewVC logotype

Diff of /gnump3d/bin/gnump3d-index

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

revision 1.18 by pizza, Tue Mar 22 18:22:52 2005 UTC revision 1.19 by skx, Wed May 25 15:50:35 2005 UTC
# Line 469  sub indexFiles( ) Line 469  sub indexFiles( )
469                # why 5 spaces?  GH)                # why 5 spaces?  GH)
470                $value =~ s/\t/     /g;                $value =~ s/\t/     /g;
471    
472                  #
473                  #  Newlines in the tag values will cause us problems.  
474                  # Strip them.
475                  #
476                  $value =~ s/\n//g;
477                  $value =~ s/\r//g;
478    
479                print OUT "\t" . $k . "=" . $value;                print OUT "\t" . $k . "=" . $value;
480              }              }
481            print OUT "\n";            print OUT "\n";
# Line 483  sub indexFiles( ) Line 490  sub indexFiles( )
490                print OUT "\t" . $k . "=";                print OUT "\t" . $k . "=";
491                if( length( $value ) > 0 ) {                if( length( $value ) > 0 ) {
492                  $value =~ s/\t/     /g;                  $value =~ s/\t/     /g;
493                    $value =~ s/\n//g;
494                    $value =~ s/\r//g;
495    
496                  print OUT $value;                  print OUT $value;
497                }                }
498              }              }

Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26