From bf63d567f40a80f1530a99604d3979ccfe405252 Mon Sep 17 00:00:00 2001
From: bayashi <bayashi@cpan.org>
Date: Wed, 18 Jun 2014 23:10:06 +0900
Subject: [PATCH] specified pragma module: use utf8

---
 t/05_showpragma.t | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/t/05_showpragma.t b/t/05_showpragma.t
index 5ee933b..8c665bc 100644
--- a/t/05_showpragma.t
+++ b/t/05_showpragma.t
@@ -4,13 +4,15 @@ use Devel::ModuleDumper qw/showpragma/;
 use Test::More;
 use Capture::Tiny qw/capture_stdout/;
 
+use utf8;
+
 my $stdout = capture_stdout { print Devel::ModuleDumper->show(); };
 
 like $stdout, qr/^Perl\t\d+/;
 like $stdout, qr/Test::More\t\d+/;
 like $stdout, qr/Capture::Tiny\t\d+/;
 
-like $stdout, qr/constant\t\d+/;
+like $stdout, qr/utf8\t\d+/;
 
 if ($ENV{AUTHOR_TEST}) {
     note $stdout;