From c14ef7280b4152702dadafbf36a61d199eee59ce Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Wed, 23 May 2012 18:26:26 +0000
Subject: perl_checker cleanups sync with MDK::Common explain from where
 output() come

---
 rescue/rescue-doc | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/rescue/rescue-doc b/rescue/rescue-doc
index c324ac9e1..e6514b462 100755
--- a/rescue/rescue-doc
+++ b/rescue/rescue-doc
@@ -1,6 +1,7 @@
 #!/usr/bin/perl
 
-sub output { my $f = shift; local *F; open F, ">$f" or die "output in file $f failed: $!\n"; print F foreach @_; }
+# From MDK::Common:
+sub output { my $f = shift; open(my $F, ">$f") or die "output in file $f failed: $!\n"; print $F $_ foreach @_ }
 
 output('/tmp/rescue-doc-contents', q(
      Information regarding problems not directly addressed
-- 
cgit v1.2.1