summaryrefslogtreecommitdiffstats
path: root/extensions
diff options
context:
space:
mode:
Diffstat (limited to 'extensions')
-rw-r--r--extensions/Push/lib/Connector/TCL.pm2
-rw-r--r--extensions/Push/lib/Daemon.pm6
2 files changed, 4 insertions, 4 deletions
diff --git a/extensions/Push/lib/Connector/TCL.pm b/extensions/Push/lib/Connector/TCL.pm
index 16ebb0319..25e5750dc 100644
--- a/extensions/Push/lib/Connector/TCL.pm
+++ b/extensions/Push/lib/Connector/TCL.pm
@@ -267,7 +267,7 @@ sub _get_bug_data {
sub _write_file {
my ($filename, $content) = @_;
- open(my $fh, ">$filename") or die "Failed to write to $filename: $!\n";
+ open(my $fh, ">", $filename) or die "Failed to write to $filename: $!\n";
binmode($fh);
print $fh $content;
close($fh) or die "Failed to write to $filename: $!\n";
diff --git a/extensions/Push/lib/Daemon.pm b/extensions/Push/lib/Daemon.pm
index 66e15783e..c8472e450 100644
--- a/extensions/Push/lib/Daemon.pm
+++ b/extensions/Push/lib/Daemon.pm
@@ -69,12 +69,12 @@ sub gd_redirect_output {
my $self = shift;
my $filename = bz_locations()->{datadir} . '/' . $self->{gd_progname} . ".log";
- open(STDERR, ">>$filename") or (print "could not open stderr: $!" && exit(1));
+ open(STDERR, ">>", $filename) or (print "could not open stderr: $!" && exit(1));
close(STDOUT);
- open(STDOUT, ">&STDERR") or die "redirect STDOUT -> STDERR: $!";
+ open(STDOUT, ">&", STDERR) or die "redirect STDOUT -> STDERR: $!";
$SIG{HUP} = sub {
close(STDERR);
- open(STDERR, ">>$filename") or (print "could not open stderr: $!" && exit(1));
+ open(STDERR, ">>", $filename) or (print "could not open stderr: $!" && exit(1));
};
}