Changeset 28484 for branches/pap/DataStore/lib/DataStore/FileSet/Parser.pm

Timestamp:

Jun 24, 2010, 2:59:09 PM (16 years ago)

Author:

Paul Price

Message:

Merging trunk in advance of reintegrating into trunk.

Location:

branches/pap

Files:

• . (modified) (1 prop)
• DataStore/lib/DataStore/FileSet/Parser.pm (modified) (5 diffs)

branches/pap/DataStore/lib/DataStore/FileSet/Parser.pm

@@ -100 +100 @@
 
     $p{base_uri} =~ qr|(.*?/)index.txt|;
-    $self->{base_uri} = $1; 
+    $self->{base_uri} = $1;
 
     return $self;
@@ -129 +129 @@
         {
             type    => SCALAR,
-            regex   => qr/\S+/, # string with at least 1 non WS char
         }
     );
@@ -139 +138 @@
         next LINE if $line =~ /^\s*$/;
 
-        # comment lines   
+        # comment lines
         next LINE if $line =~ /^\s*\#/;
 
@@ -183 +182 @@
             carp "line $lineno: type $type unknown: $line";
             next LINE;
-        } 
+        }
 
         my @extra = @fields[3 .. $#fields] if $#fields >= 3;
@@ -192 +191 @@
             datetime    => $datetime,
             type        => $type,
-            extra       => \@extra, 
+            extra       => \@extra,
             uri         => $self->base_uri . $fileset . '/index.txt',
         });