Changeset 7954

Timestamp:

2004-08-16T15:59:37+12:00 (20 years ago)

Author:

davidb

Message:

Minor tweak to regular expression that modifies white space.

File:

• trunk/gsdl/perllib/sorttools.pm (modified) (2 diffs)

trunk/gsdl/perllib/sorttools.pm

@@ -40 +40 @@
     $$stringref =~ s/[^a-z0-9 ]//g;
     $$stringref =~ s/^\s*(the|a|an)\b//;
+    $$stringref =~ s/\s+/ /g;
     $$stringref =~ s/^\s+//;
+    $$stringref =~ s/\s+$//;
 }
 
@@ -57 +59 @@
     $$stringref =~ s/\s+/ /g;
     $$stringref =~ s/^\s+//;
+    $$stringref =~ s/\s+$//;