From: Andy Grundman <andy@hybridized.org>
Date: Wed, 14 Dec 2005 06:01:38 +0000 (+0000)
Subject: Display version numbers of loaded plugins (Curtis Poe)
X-Git-Tag: 5.7099_04~774
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=commitdiff_plain;h=d10c3e60742117af15697a420e0cb37850bba8d7

Display version numbers of loaded plugins (Curtis Poe)
---

diff --git a/Changes b/Changes
index 23d1a4e..a768594 100644
--- a/Changes
+++ b/Changes
@@ -1,6 +1,7 @@
 This file documents the revision history for Perl extension Catalyst.
 
 5.62
+        - Display version numbers of loaded plugins. (Curtis Poe)
         - Added class and method for catched exceptions messages
         - Updated PAR support to use "make catalyst_par",
           packages are no longer written by Makefile.PL
diff --git a/lib/Catalyst.pm b/lib/Catalyst.pm
index 4b9ef99..5f6d50b 100644
--- a/lib/Catalyst.pm
+++ b/lib/Catalyst.pm
@@ -592,7 +592,9 @@ EOF
 
         {
             no strict 'refs';
-            @plugins = grep { /^Catalyst::Plugin/ } @{"$class\::ISA"};
+            @plugins = 
+                map  { $_ . ' ' . ( $_->VERSION || '' ) }
+                grep { /^Catalyst::Plugin/ } @{"$class\::ISA"};
         }
 
         if (@plugins) {