From ba82cfbbcd0823c6c686cd5f29c368bb0f4b6f78 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Sven=20Sch=C3=B6ling?= <s.schoeling@linet-services.de>
Date: Tue, 21 Sep 2010 11:16:17 +0200
Subject: [PATCH] Legacy Fix: version->parse existiert erst seit 5.10.1. Vorher
 muss version->new->numify

---
 SL/FCGIFixes.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/SL/FCGIFixes.pm b/SL/FCGIFixes.pm
index 2bd312c9e..47393aad6 100644
--- a/SL/FCGIFixes.pm
+++ b/SL/FCGIFixes.pm
@@ -4,6 +4,7 @@ use strict;
 
 use Encode;
 use FCGI;
+use version;
 
 # FCGI does not use Perl's I/O layer. Therefore it does not honor
 # setting STDOUT to ":utf8" with "binmode".  Also FCGI starting with
@@ -23,7 +24,7 @@ use FCGI;
 # that current I/O operations should be raw.
 
 sub fix_print_and_internal_encoding_after_0_68 {
-  return if version->parse($FCGI::VERSION) <= version->parse("0.68");
+  return if version->new("$FCGI::VERSION")->numify <= version->new("0.68")->numify;
 
   my $encoder             = Encode::find_encoding('UTF-8');
   my $original_fcgi_print = \&FCGI::Stream::PRINT;
-- 
2.20.1