I fail at fixing things which don't have tests

git-svn-id: http://dev.catalystframework.org/repos/Catalyst/Catalyst-Devel/1.00/trunk@10224 4ad37cd2-5fec-0310-835f-b3785c72a374

Changes

@@ -6,6 +6,8 @@ This file documents the revision history for Perl extension Catalyst-Devel.
           that the restarter is as slow as ever on Win32, but it
           works. Thanks to Rodrigo for the bug report and suggestion
           on how to fix it. (Dave Rolsky)
+        - Actually fix -p option for port number, as I failed to do it
+          right last time as I'm an idiot (t0m)
 
 1.15    2009-05-13 20:02
         - Remove -p option for pid file, and restore it to the port number,

lib/Catalyst/Helper.pm

@@ -898,6 +898,12 @@ GetOptions(
 
 pod2usage(1) if $help;
 
+# as the IIS doesn't like output to STDERR keep it at STDOUT, otherwise the
+# server will return "Connection Interrupted"
+if ( $^O eq 'MSWin32' && exists($ENV{APP_POOL_ID}) ) {
+    $keep_stderr = 1;
+}
+
 [% name %]->run(
     $listen,
     {   nproc   => $nproc,
@@ -988,7 +994,7 @@ GetOptions(
     'fork|f'              => \$fork,
     'help|?'              => \$help,
     'host=s'              => \$host,
-    'port=s'              => \$port,
+    'port|p=s'            => \$port,
     'keepalive|k'         => \$keepalive,
     'restart|r'           => \$restart,
     'restartdelay|rd=s'   => \$check_interval,