perl-docs-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject cvs commit: modperl-docs/bin site_build
Date Wed, 07 Aug 2002 01:27:43 GMT
stas        2002/08/06 18:27:43

  Modified:    bin      site_build
  Log:
  use system() instead of qx() so we can get errors reported
  
  Revision  Changes    Path
  1.5       +6 -6      modperl-docs/bin/site_build
  
  Index: site_build
  ===================================================================
  RCS file: /home/cvs/modperl-docs/bin/site_build,v
  retrieving revision 1.4
  retrieving revision 1.5
  diff -u -r1.4 -r1.5
  --- site_build	6 Aug 2002 09:02:06 -0000	1.4
  +++ site_build	7 Aug 2002 01:27:43 -0000	1.5
  @@ -47,19 +47,19 @@
       $flags .= 'd' if $name =~ /pdf/;
       $flags = $flags ? "-$flags" : "";
   
  -    qx{ cvs up -dP >/dev/null 2>&1 };
  +    system("cvs up -dP >/dev/null 2>&1");
   
  -    qx{ bin/build $flags };
  +    system("bin/build $flags");
   
  -    qx{ bin/makeindex } if $reindex;
  +    system("bin/makeindex") if $reindex;
   
   
   }
   
   sub online_sync {
  -    qx{ cp -r $rel/ $dst/ };
  -    qx{ find $dst -type d -exec chmod g+rwx {} \; >/dev/null 2>&1 };
  -    qx{ find $dst -type f -exec chmod g+wr {} \;  >/dev/null 2>&1 };
  +    system("cp -r $rel/ $dst/");
  +    system("find $dst -type d -exec chmod g+rwx {} \; >/dev/null 2>&1");
  +    system("find $dst -type f -exec chmod g+wr {} \;  >/dev/null 2>&1");
   }
   
   sub fs_is_full {
  
  
  

---------------------------------------------------------------------
To unsubscribe, e-mail: docs-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: docs-cvs-help@perl.apache.org


Mime
View raw message