changes
[urisagit/Perl-Docs.git] / t / data_list.t
index 1d4464f..ac85b2e 100644 (file)
@@ -34,7 +34,7 @@ sub test_data_list_slurp {
        my $data_seek = tell( \*DATA );
 
 # first slurp in the lines
+
        my @slurp_lines = read_file( \*DATA ) ;
 
 # now seek back and read all the lines with the <> op and we make