From 90244813fe8110fc91f3746ebd93880e1c911cf1 Mon Sep 17 00:00:00 2001 From: David Lawrence Date: Tue, 27 Jan 2015 12:27:50 +0800 Subject: Bug 1124432: Backport upstream bug 1079065 to bmo/4.2 to fix improper use of open() calls --- extensions/Push/lib/Connector/TCL.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'extensions/Push/lib/Connector') 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"; -- cgit v1.2.3-24-g4f1b