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: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
