Changeset 1735

Timestamp:

2005-04-27T16:43:58+02:00 (19 years ago)

Author:

kajny

Message:

Fixed line endings

File:

• trunk/testsuite/mosfiles/rtest (modified) (1 diff)

trunk/testsuite/mosfiles/rtest

@@ -112 +112 @@
     open(IN,"<$f");
     while(<IN>) {
-  if (/^\/\/[ \\|]([a-z]*): *(.*)$/) {
+  if (/^\/\/[ \\|]([a-z]*): *([^\r|^\n]*)$/) {
       $info{$1} = $2;
       # print "Noticed $1 = $2\n";