projects
/
clearscm.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Updates from work
[clearscm.git]
/
lib
/
Utils.pm
diff --git
a/lib/Utils.pm
b/lib/Utils.pm
index
78af171
..
eddef3a
100644
(file)
--- a/
lib/Utils.pm
+++ b/
lib/Utils.pm
@@
-156,7
+156,7
@@
Returns:
or error "Can't write to $errorlog ($!)", 1;
# Change the current directory to /
or error "Can't write to $errorlog ($!)", 1;
# Change the current directory to /
- my $ROOT = $ARCH eq "windows" ? "C:\\" : "/";
+ my $ROOT = $ARCH
ITECTURE
eq "windows" ? "C:\\" : "/";
chdir $ROOT
or error "Can't chdir to $ROOT ($!), 1";
chdir $ROOT
or error "Can't chdir to $ROOT ($!), 1";
@@
-232,17
+232,11
@@
STDOUT then do so in the $command passed in.
=cut
=cut
- # Save $SIG{CHLD} so we can set it to 'DEFAULT' and then restore it later.
- # Helps when you are doing process handling.
- my $sigchld = $SIG{CHLD};
-
local $SIG{CHLD} = 'DEFAULT';
my @output = `$cmd`;
my $status = $?;
local $SIG{CHLD} = 'DEFAULT';
my @output = `$cmd`;
my $status = $?;
- local $SIG{CHLD} = $sigchld;
-
chomp @output;
return ($status, @output);
chomp @output;
return ($status, @output);
@@
-584,7
+578,7
@@
Returns:
=cut
=cut
- open my $pipe, '|
', $to
+ open my $pipe, '|
-', $to
or error "Unable to open pipe - $!", 1;
foreach (@output) {
or error "Unable to open pipe - $!", 1;
foreach (@output) {