From 9b49ae29031de4b47d6786b318fd20278648847c Mon Sep 17 00:00:00 2001
From: Mario Fetka <mario.fetka@gmail.com>
Date: Fri, 22 May 2026 15:16:45 +0200
Subject: [PATCH] add print test page v6

---
 apply.pl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/apply.pl b/apply.pl
index 703c5f6..df86c3a 100644
--- a/apply.pl
+++ b/apply.pl
@@ -1670,8 +1670,9 @@ sub test_print_queue( $$ )
 		$tmpdir = '/tmp' if ! -d $tmpdir || ! -w $tmpdir;
 
 		my $tmp = $tmpdir . '/smart-test-print-' . $$ . '-' . int( rand( 1000000 ) ) . '.txt';
+		my $fh;
 
-		if( ! open( my $fh, '>', $tmp ) )
+		if( ! open( $fh, '>', $tmp ) )
 		{
 			my $msg = 'Could not create test print file ' . $tmp . ': ' . $!;
 			apply_log_line( 'ERROR', 'print queue test failed queue=' . $queue . ' error=' . $msg );