Change 34223 by [EMAIL PROTECTED] on 2008/08/24 14:39:10
Subject: Re: [perl #58218] backwards logic in perluniintro (5.10.0)
From: "Dr.Ruud" <[EMAIL PROTECTED]>
Date: Sat, 23 Aug 2008 10:07:45 +0200
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/pod/perluniintro.pod#67 edit
Differences ...
==== //depot/perl/pod/perluniintro.pod#67 (text) ====
Index: perl/pod/perluniintro.pod
--- perl/pod/perluniintro.pod#66~32461~ 2007-11-23 02:58:24.000000000 -0800
+++ perl/pod/perluniintro.pod 2008-08-24 07:39:10.000000000 -0700
@@ -653,8 +653,8 @@
For example,
use Encode 'decode_utf8';
- eval { decode_utf8($string, Encode::FB_CROAK) };
- if ($@) {
+
+ if (eval { decode_utf8($string, Encode::FB_CROAK); 1 }) {
# $string is valid utf8
} else {
# $string is not valid utf8
End of Patch.
