Changeset 6489

Timestamp:

Feb 24, 2006, 2:11:19 PM (20 years ago)

Author:

jhoblitt

Message:

return records in fifo order instead of lifo

File:

• trunk/DataStore/lib/DataStore/FileSet/Parser.pm (modified) (3 diffs)

trunk/DataStore/lib/DataStore/FileSet/Parser.pm

@@ -1 +1 @@
 # Copyright (C) 2006  Joshua Hoblitt
 #
-# $Id: Parser.pm,v 1.3 2006-02-24 03:19:28 jhoblitt Exp $
+# $Id: Parser.pm,v 1.4 2006-02-25 00:11:19 jhoblitt Exp $
 
 package DataStore::FileSet::Parser;
@@ -133 +133 @@
         } 
 
-        unshift @data, DataStore::FileSet::Record->new({
+        # fifo
+        push @data, DataStore::FileSet::Record->new({
             fileset     => $fileset,
             datetime    => $datetime,
@@ -153 +154 @@
 @BASE_FIELDS = qw( fileset datetime type );
 
+__PACKAGE__->mk_accessors(@BASE_FIELDS);
+
 1;