RT# 82942 Fix typo

diff --git a/FS/FS/DBI.pm b/FS/FS/DBI.pm
index c6ff125..8719a58 100644 (file)
--- a/FS/FS/DBI.pm
+++ b/FS/FS/DBI.pm
@@ -49,7 +49,7 @@ sub connect {
   my $class = shift;
   my $dbh = $class->SUPER::connect( @_ );
 
-  if ( $_[0] =~ /^DBI::Pg/ ) {
+  if ( $_[0] =~ /^DBI:Pg/ ) {
     $dbh->do('SET client_encoding TO UTF8;')
       or die sprintf 'Error setting client_encoding to UTF8: %s', $dbh->errstr;