Index: /trunk/DataStore/lib/DataStore/FileSet/Parser.pm
===================================================================
--- /trunk/DataStore/lib/DataStore/FileSet/Parser.pm	(revision 15023)
+++ /trunk/DataStore/lib/DataStore/FileSet/Parser.pm	(revision 15024)
@@ -1,5 +1,5 @@
 # Copyright (C) 2006  Joshua Hoblitt
 #
-# $Id: Parser.pm,v 1.16 2007-09-25 23:52:46 jhoblitt Exp $
+# $Id: Parser.pm,v 1.17 2007-09-26 00:09:52 jhoblitt Exp $
 
 package DataStore::FileSet::Parser;
@@ -32,5 +32,5 @@
 
     my $parser = DataStore::FileSet::Parser->new(
-        base_uri => 'http://example.org/',
+        base_uri => 'http://example.org/index.txt',
     );
 
@@ -61,5 +61,5 @@
 
     my $parser = DataStore::FileSet::Parser->new(
-        base_uri => 'http://example.org/',
+        base_uri => 'http://example.org/index.txt',
     );
 
@@ -89,5 +89,6 @@
                     'is valid http uri' =>
                         sub { is_uri($_[0]) and $_[0] =~ /^http:/ },
-                    'uri ends with /index.txt' => sub { $_[0] =~ m|/index.txt$| },
+                    'uri ends with /index.txt' =>
+                        sub { $_[0] =~ m|/index.txt$| },
                 },
                 default =>  'http://example.org/index.txt',
@@ -99,5 +100,4 @@
 
     $p{base_uri} =~ qr|(.*?/)index.txt|;
-
     $self->{base_uri} = $1;