Fix warning RT#73776

frioux · Nov 11, 2013 · 3efa72a · 3efa72a
1 parent 5801855
commit 3efa72a
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 1 deletion.
diff --git a/Changes b/Changes
@@ -2,6 +2,8 @@ Revision history for Perl extension CGI::Application::Plugin::DBH
 
 {{ $NEXT }}
 
+   - Fix warning RT#73776 (Arthur Axel 'fREW' Schmidt)
+
 4.02      2013-11-11 13:24:41 America/Chicago
 
    - Fix missing dep on DBD::Mock (Arthur Axel 'fREW' Schmidt)

diff --git a/lib/CGI/Application/Plugin/DBH.pm b/lib/CGI/Application/Plugin/DBH.pm
@@ -28,7 +28,7 @@ sub dbh {
         # create DBH object
         if(my $config = $self->{__DBH_CONFIG}{$name} ) {
             # Use a callback
-            if (ref $config eq 'CODE') {
+            if (ref $config && ref $config eq 'CODE') {
                 $self->{__DBH}{$name} = $config->();
             }
             # use the parameters the user supplied