#!/usr/bin/perl
#
# xdump example program.
-# Copyright (C) 2006-2008 Markus Armbruster
+# Copyright (C) 2006-2010 Markus Armbruster
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
my $n = 0;
while ($data !~ /^\//) {
($_, $data) = split(/\n/, $data, 2);
- my @fld = split(/ /);
+ my @fld = split(/ /);
&$store_record($tuid, $meta, $name, $n, \@fld, $timestamp);
$n++;
}