add warning on unregistered driver (RT#93204)

rehsack · rehsack · commit 50d53fbfdbb9 · 2014-02-27T07:47:08.000+01:00
diff --git a/lib/DBI/DBD/SqlEngine.pm b/lib/DBI/DBD/SqlEngine.pm
@@ -95,6 +95,12 @@ EOI
             $dbclass->install_method($method);
         }
     }
+    else
+    {
+        warn "Using DBI::DBD::SqlEngine with unregistered driver.\n"
+          . "Reading documentation how to prevent is strongly recommended.\n";
+
+    }
 
     # XXX inject DBD::XXX::Statement unless exists
 

Original file line number	Diff line number	Diff line change
`@@ -95,6 +95,12 @@ EOI`
`95`	`95`	`$dbclass->install_method($method);`
`96`	`96`	`}`
`97`	`97`	`}`
	`98`	`+ else`
	`99`	`+ {`
	`100`	`+ warn "Using DBI::DBD::SqlEngine with unregistered driver.\n"`
	`101`	`+ . "Reading documentation how to prevent is strongly recommended.\n";`
	`102`	`+`
	`103`	`+ }`
`98`	`104`
`99`	`105`	`# XXX inject DBD::XXX::Statement unless exists`
`100`	`106`