From: Pavel Charvat <pchar@ucw.cz>
Date: Mon, 11 Sep 2017 19:35:03 +0000 (+0200)
Subject: UCW::Configure: Fixed compatibility with old perl.
X-Git-Tag: v6.5.6~1
X-Git-Url: http://mj.ucw.cz/gitweb/?a=commitdiff_plain;h=972f717514075680c2e1295331bf9ba4dc151b05;p=libucw.git

UCW::Configure: Fixed compatibility with old perl.

Older versions of perl don't automatically load methods
like STDOUT->flush, we need to explicitly use IO::File.
---

diff --git a/ucw/perl/UCW/Configure.pm b/ucw/perl/UCW/Configure.pm
index 83b70e0d..c469b3c3 100644
--- a/ucw/perl/UCW/Configure.pm
+++ b/ucw/perl/UCW/Configure.pm
@@ -9,6 +9,7 @@ package UCW::Configure;
 
 use strict;
 use warnings;
+use IO::File;
 
 BEGIN {
 	# The somewhat hairy Perl export mechanism