Index: /trunk/DataStore/lib/DataStore/File/Parser.pm
===================================================================
--- /trunk/DataStore/lib/DataStore/File/Parser.pm	(revision 6475)
+++ /trunk/DataStore/lib/DataStore/File/Parser.pm	(revision 6476)
@@ -1,5 +1,5 @@
 # Copyright (C) 2006  Joshua Hoblitt
 #
-# $Id: Parser.pm,v 1.1 2006-02-24 03:14:29 jhoblitt Exp $
+# $Id: Parser.pm,v 1.2 2006-02-24 03:19:28 jhoblitt Exp $
 
 package DataStore::File::Parser;
@@ -95,8 +95,15 @@
 
         # at least fileid, bytes, md5sum, and type fields are required
-
         if (scalar @fields < 4) {
             carp "line $lineno: not enough fields: $line";
             next LINE;
+        }
+
+        # fields are not allowed to contain #
+        foreach my $field (@fields) {
+            if ($field =~ /\#/) {
+                carp "line $lineno: field $field: contains #: $line";
+                next LINE;
+            }
         }
 
Index: /trunk/DataStore/lib/DataStore/FileSet/Parser.pm
===================================================================
--- /trunk/DataStore/lib/DataStore/FileSet/Parser.pm	(revision 6475)
+++ /trunk/DataStore/lib/DataStore/FileSet/Parser.pm	(revision 6476)
@@ -1,5 +1,5 @@
 # Copyright (C) 2006  Joshua Hoblitt
 #
-# $Id: Parser.pm,v 1.2 2006-02-24 02:51:31 jhoblitt Exp $
+# $Id: Parser.pm,v 1.3 2006-02-24 03:19:28 jhoblitt Exp $
 
 package DataStore::FileSet::Parser;
@@ -102,4 +102,12 @@
         }
 
+        # fields are not allowed to contain #
+        foreach my $field (@fields) {
+            if ($field =~ /\#/) {
+                carp "line $lineno: field $field: contains #: $line";
+                next LINE;
+            }
+        }
+
         my ($fileset, $datetime, $type) = @fields;