[DBD::Pg 1/2] Quick demo of utf8::upgrade

Committed by Greg Sabino Mullane <greg-O9fzpki4YnJWk0Htik3J/[email protected]>

Subject: [DBD::Pg 1/2] Quick demo of utf8::upgrade

---
 testme.tmp.pl |    2 ++
 1 files changed, 2 insertions(+), 0 deletions(-)

diff --git a/testme.tmp.pl b/testme.tmp.pl
index ade058e..92c9204 100755
--- a/testme.tmp.pl
+++ b/testme.tmp.pl
@@ -69,6 +69,8 @@ sub utf8_print_test {
 			print DPeek $result;
 			print "\n Print with pg_enable_utf8 $onoff: $result\n";
 			warn " Warn with pg_enable_utf8 $onoff: $result\n\n";
+			utf8::upgrade($result);
+			print DPeek $result; print "\n\n";
 		}
 	}
 
-- 
1.7.1