Fixed catalyst_par_core() and catalyst_par_multiarch()

diff --git a/Changes b/Changes
index d91b32a..66bdac8 100644 (file)
--- a/Changes
+++ b/Changes
@@ -6,6 +6,7 @@ This file documents the revision history for Perl extension Catalyst.
         - Fixed forward to classes ($c->forward(qw/MyApp foo/))
         - Wrap use block in begin to quelch C:C3 warnings
         - Removed scrollbar from debug output
+        - Fixed catalyst_par_core() and catalyst_par_multiarch()
 
 5.58    2005-11-24 10:51:00
         - Added ExtUtils::AutoInstall support

diff --git a/lib/Module/Install/Catalyst.pm b/lib/Module/Install/Catalyst.pm
index e37ef92..9589f9a 100644 (file)
--- a/lib/Module/Install/Catalyst.pm
+++ b/lib/Module/Install/Catalyst.pm
@@ -88,7 +88,7 @@ sub catalyst_par { Catalyst::Module::Install::_catalyst_par(@_) }
 
 sub catalyst_par_core {
     my ( $self, $core ) = @_;
-    $core ? ( $CORE = $core ) : $core++;
+    $core ? ( $CORE = $core ) : $CORE++;
 }
 
 =head2 catalyst_par_classes(@clases)
@@ -115,7 +115,7 @@ sub catalyst_par_engine {
 
 sub catalyst_par_multiarch {
     my ( $self, $multiarch ) = @_;
-    $multiarch ? ( $MULTIARCH = $multiarch ) : $multiarch++;
+    $multiarch ? ( $MULTIARCH = $multiarch ) : $MULTIARCH++;
 }
 
 =head2 catalyst_par_script($script)