summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-05-23 18:26:26 +0000
committerThierry Vignaud <tv@mageia.org>2012-05-23 18:26:26 +0000
commitc14ef7280b4152702dadafbf36a61d199eee59ce (patch)
tree70437dba174b1c0bb0b018ca18f9c0ef4221ddbf
parentba7b41cadca4edf73f3a612a62217541696b44cc (diff)
downloaddrakx-c14ef7280b4152702dadafbf36a61d199eee59ce.tar
drakx-c14ef7280b4152702dadafbf36a61d199eee59ce.tar.gz
drakx-c14ef7280b4152702dadafbf36a61d199eee59ce.tar.bz2
drakx-c14ef7280b4152702dadafbf36a61d199eee59ce.tar.xz
drakx-c14ef7280b4152702dadafbf36a61d199eee59ce.zip
perl_checker cleanups
sync with MDK::Common explain from where output() come
-rwxr-xr-xrescue/rescue-doc3
1 files changed, 2 insertions, 1 deletions
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