Changeset 11430

Timestamp:

2006-03-21T10:41:40+12:00 (18 years ago)

Author:

mdewsnip

Message:

Fix for removing nasty carriage returns/line feeds from the end of lines -- very important for Windows.

File:

• trunk/gsdl/perllib/plugins/ISISPlug.pm (modified) (1 diff)

trunk/gsdl/perllib/plugins/ISISPlug.pm

@@ -175 +175 @@
     # Process each line of the ISIS record, one at a time
     foreach my $line (split(/\n/, $$textref)) {
+    $line =~ s/(\s*)$//;  # Remove any nasty whitespace (very important for Windows)
     $line =~ /^tag=(.*) data=(.+)$/;
     my $tag = $1;