summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xscript/intentioncloud_create.pl14
-rwxr-xr-xscript/intentioncloud_fastcgi.pl10
-rwxr-xr-xscript/intentioncloud_server.pl6
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;