[Rt-commit] r11811 - rt/branches/3.8-TESTING/html/installation

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Tue Apr 22 08:24:56 2008
New Revision: 11811

Modified:
   rt/branches/3.8-TESTING/html/installation/Step1.html

Log:
only show installed DBD::foo modules

Modified: rt/branches/3.8-TESTING/html/installation/Step1.html
==============================================================================
--- rt/branches/3.8-TESTING/html/installation/Step1.html	(original)
+++ rt/branches/3.8-TESTING/html/installation/Step1.html	Tue Apr 22 08:24:56 2008
@@ -78,6 +78,8 @@
 
 my ( @Types, @results );
 @Types = qw/SQLite mysql Oracle Pg Informix/;
+require UNIVERSAL::require;
+ at Types = grep { my $m = 'DBD::' . $_; $m->require ? 1 : 0 } @Types;
 
 if ( $Run ) {