[libhtml-scrubber-perl] 10/30: Use three-argument form of open()

[Florian Schlichting]

This is an automated email from the git hooks/post-receive script.

fsfs pushed a commit to annotated tag release/0.16
in repository libhtml-scrubber-perl.

commit 49aa1aff5c5fd23a6dd7f5d9118353206397e3e8
Author: Paul Cochrane <paul at liekut.de>
Date:   Wed Jun 14 12:21:06 2017 +0200

    Use three-argument form of open()
---
 t/06_scrub_file.t | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/t/06_scrub_file.t b/t/06_scrub_file.t
index a970be5..ee5e707 100644
--- a/t/06_scrub_file.t
+++ b/t/06_scrub_file.t
@@ -26,7 +26,7 @@ SKIP: {
     is( $r, 1, "scrub(\$html,\$tmpfile=$tmpfile)" );
 
     local *FILIS;
-    open FILIS, "+>$tmpfile" or die "can't write to $tmpfile";
+    open FILIS, "+>", $tmpfile or die "can't write to $tmpfile";
 
     $r = $s->scrub( $html, \*FILIS );
     $r = "Error: \$@=$@ \$!=$!" unless $r;
@@ -44,7 +44,7 @@ SKIP: {
 
     is( $r, 1, qq[scrub_file(\$tmpfile,"\$tmpfile2"=$tmpfile2)] );
 
-    open FILIS, "+>$tmpfile2" or die "can't write to $tmpfile";
+    open FILIS, "+>", $tmpfile2 or die "can't write to $tmpfile";
     $r = $s->scrub_file( $tmpfile, \*FILIS );
     $r = "Error: \$@=$@ \$!=$!" unless $r;
 

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libhtml-scrubber-perl.git