diff options
| -rwxr-xr-x | rescue/rescue-doc | 3 |
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 |