From 5d088f91ae74fed0e84950768600a5dc4055bedc Mon Sep 17 00:00:00 2001
From: franck cuny <franck@lumberjaph.net>
Date: Sun, 5 Apr 2009 13:29:52 +0200
Subject: update scripts

---
 script/intentioncloud_create.pl  | 14 +++++++++++++-
 script/intentioncloud_fastcgi.pl | 10 +++++-----
 script/intentioncloud_server.pl  |  6 +++---
 3 files changed, 21 insertions(+), 9 deletions(-)

diff --git a/script/intentioncloud_create.pl b/script/intentioncloud_create.pl
index abcc466..ceb3876 100755
--- a/script/intentioncloud_create.pl
+++ b/script/intentioncloud_create.pl
@@ -4,7 +4,19 @@ use strict;
 use warnings;
 use Getopt::Long;
 use Pod::Usage;
-use Catalyst::Helper;
+eval "use Catalyst::Helper;";
+
+if ($@) {
+  die <<END;
+To use the Catalyst development tools including catalyst.pl and the
+generated script/myapp_create.pl you need Catalyst::Helper, which is
+part of the Catalyst-Devel distribution. Please install this via a
+vendor package or by running one of -
+
+  perl -MCPAN -e 'install Catalyst::Devel'
+  perl -MCPANPLUS -e 'install Catalyst::Devel'
+END
+}
 
 my $force = 0;
 my $mech  = 0;
diff --git a/script/intentioncloud_fastcgi.pl b/script/intentioncloud_fastcgi.pl
index 41d4c9e..002381d 100755
--- a/script/intentioncloud_fastcgi.pl
+++ b/script/intentioncloud_fastcgi.pl
@@ -12,7 +12,7 @@ use intentioncloud;
 
 my $help = 0;
 my ( $listen, $nproc, $pidfile, $manager, $detach, $keep_stderr );
- 
+
 GetOptions(
     'help|?'      => \$help,
     'listen|l=s'  => \$listen,
@@ -25,10 +25,10 @@ GetOptions(
 
 pod2usage(1) if $help;
 
-intentioncloud->run( 
-    $listen, 
+intentioncloud->run(
+    $listen,
     {   nproc   => $nproc,
-        pidfile => $pidfile, 
+        pidfile => $pidfile,
         manager => $manager,
         detach  => $detach,
 	keep_stderr => $keep_stderr,
@@ -44,7 +44,7 @@ intentioncloud_fastcgi.pl - Catalyst FastCGI
 =head1 SYNOPSIS
 
 intentioncloud_fastcgi.pl [options]
- 
+
  Options:
    -? -help      display this help and exits
    -l -listen    Socket path to listen on
diff --git a/script/intentioncloud_server.pl b/script/intentioncloud_server.pl
index 73c1468..6612eaa 100755
--- a/script/intentioncloud_server.pl
+++ b/script/intentioncloud_server.pl
@@ -1,10 +1,10 @@
 #!/usr/bin/perl -w
 
-BEGIN { 
+BEGIN {
     $ENV{CATALYST_ENGINE} ||= 'HTTP';
-    $ENV{CATALYST_SCRIPT_GEN} = 31;
+    $ENV{CATALYST_SCRIPT_GEN} = 32;
     require Catalyst::Engine::HTTP;
-}  
+}
 
 use strict;
 use warnings;
-- 
cgit 1.4.1