cvs commit: httpd-apreq-2/build xsbuilder.pl

[joes]

joes        2004/07/19 21:17:23

  Modified:    build    xsbuilder.pl
  Log:
  Don't open the destination file (which will clobber a preexisting file) 
unless the source podfile actually exists.
  
  Revision  Changes    Path
  1.30      +1 -1      httpd-apreq-2/build/xsbuilder.pl
  
  Index: xsbuilder.pl
  ===================================================================
  RCS file: /home/cvs/httpd-apreq-2/build/xsbuilder.pl,v
  retrieving revision 1.29
  retrieving revision 1.30
  diff -u -r1.29 -r1.30
  --- xsbuilder.pl      20 Jul 2004 03:18:07 -0000      1.29
  +++ xsbuilder.pl      20 Jul 2004 04:17:23 -0000      1.30
  @@ -231,8 +231,8 @@
   
   sub write_docs {
       my ($self, $module, $functions) = @_;
  -    my $fh = $self->open_class_file($module, '.pod');
       my $podfile = $self->mod_pod($module, 1) or return;
  +    my $fh = $self->open_class_file($module, '.pod');
       open my $pod, "<", $podfile or die $!;
       while (<$pod>) {
           print $fh $_;