reverted r7440 since what Daisuke meant to test was utf-8 bytes, not

[catagits/Catalyst-Runtime.git] / script / catalyst.pl

diff --git a/script/catalyst.pl b/script/catalyst.pl
index 83c4eb7..188c708 100755 (executable)
--- a/script/catalyst.pl
+++ b/script/catalyst.pl
@@ -3,7 +3,8 @@
 use strict;
 use Getopt::Long;
 use Pod::Usage;
-eval " use Catalyst::Helper 1.0; ";
+BEGIN {
+eval " use Catalyst::Devel 1.0; ";
 
 if ($@) {
   die <<END;
@@ -17,6 +18,9 @@ vendor package or by running one of -
 END
 
 }
+};
+
+use Catalyst::Helper;
 
 my $force    = 0;
 my $help     = 0;