Re: perl module documentation patches, segfault

[John Darrington]

On Sun, Feb 01, 2009 at 02:50:01PM -0800, Ben Pfaff wrote:
     
     Finally, I was working on a script to dump out a system file as
     text.  Here's what I have so far.  It works, in that it dumps the
     cases, but it segfaults after it reads the last one:
     
         #! /usr/bin/perl
     
         use PSPP;
     
         use strict;
         use warnings;
     
         my $reader = PSPP::Reader->open ($ARGV[0]);
         while (my @case = @{$reader->get_next_case ()}) {
             print join (',', @case), "\n";
         }
     

Writing the loop slightly differently, works around this problem:

while (my $case = $reader->get_next_case ())
{
    print join (',', @$case), "\n";
}


-- 
PGP Public key ID: 1024D/2DE827B3 
fingerprint = 8797 A26D 0854 2EAB 0285  A290 8A67 719C 2DE8 27B3
See http://pgp.mit.edu or any PGP keyserver for public key.

signature.asc
Description: Digital signature