From 5ca0f14369258de831676d717450fb2cea656526d0ddbe68c3451bc9e90a4ad3 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Michael=20Schr=C3=B6der?= <mls@suse.com>
Date: Mon, 9 May 2016 12:52:12 +0000
Subject: [PATCH] ......

OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl?expand=0&rev=140
---
 perl-netcmdutf8.diff | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/perl-netcmdutf8.diff b/perl-netcmdutf8.diff
index c41645f..d212e3c 100644
--- a/perl-netcmdutf8.diff
+++ b/perl-netcmdutf8.diff
@@ -6,7 +6,7 @@
  
 +    # encode to individual utf8 bytes if
 +    # $str is a string (in internal UTF-8)
-+    utf8::encode($str) if is_utf8($str);
++    utf8::encode($str) if utf8::is_utf8($str);
 +
      $cmd->debug_print(1, $str)
        if ($cmd->debug);
@@ -17,7 +17,7 @@
  
 +  # encode to individual utf8 bytes if
 +  # $line is a string (in internal UTF-8)
-+  utf8::encode($line) if is_utf8($line);
++  utf8::encode($line) if utf8::is_utf8($line);
 +
    return 1
      unless length($line);