cvs commit: modperl-2.0/lib/ModPerl WrapXS.pm

[dougm]

dougm       01/10/21 18:43:56

  Modified:    lib/ModPerl WrapXS.pm
  Log:
  when dealing with single export file only write header once
  
  Revision  Changes    Path
  1.31      +4 -0      modperl-2.0/lib/ModPerl/WrapXS.pm
  
  Index: WrapXS.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/lib/ModPerl/WrapXS.pm,v
  retrieving revision 1.30
  retrieving revision 1.31
  diff -u -r1.30 -r1.31
  --- WrapXS.pm 2001/10/22 01:33:47     1.30
  +++ WrapXS.pm 2001/10/22 01:43:56     1.31
  @@ -692,7 +692,9 @@
       while (my($name, $table) = each %files) {
           my $handles = $self->open_export_files($name, $ext);
   
  +     my %seen; #only write header once if this is a single file
           for my $fh (values %$handles) {
  +            next if $seen{$fh}++;
               print $fh $self->$header();
           }
   
  @@ -708,7 +710,9 @@
               print $fh $self->$format($name);
           }
   
  +        %seen = (); #only close handle once if this is a single file
           for my $fh (values %$handles) {
  +            next if $seen{$fh}++;
               close $fh;
           }
       }