Changes of Revision 2
| [-] | Changed | perl-DBIx-DBCluster.spec |
|
x 1 2 URL: http://search.cpan.org/dist/DBIx-DBCluster/3 4 Source: http://backpan.perl.org/authors/id/A/AR/ARAK/DBIx-DBCluster-%{version}.tar.gz5 +Patch0: sqlgrey.patch6 +7 BuildRoot: %{_tmppath}/%{name}-%{version}-%{release}-root8 9 BuildArch: noarch10 11 12 %prep13 %setup -n %{real_name}-%{version}14 +%patch0 -p115 16 %build17 %{__perl} Makefile.PL INSTALLDIRS="vendor" PREFIX="%{buildroot}%{_prefix}"18 |
||
| [+] | Added | sqlgrey.patch ^ |
| @@ -0,0 +1,69 @@ +diff -uNr ../../DBIx-DBCluster-0.01/Changes DBIx-DBCluster-0.01/Changes +--- ../../DBIx-DBCluster-0.01/Changes 2003-06-17 22:00:50.000000000 +0200 ++++ DBIx-DBCluster-0.01/Changes 2012-02-13 17:54:08.000000000 +0100 +@@ -3,5 +3,6 @@ + 0.01 Tue Jun 17 13:54:47 2003 + - original version; framework created by h2xs 1.21 + +- ++ 2006 ++ - Modified for use in sqlgrey by Dan Faerch + +diff -uNr ../../DBIx-DBCluster-0.01/DBCluster.pm DBIx-DBCluster-0.01/DBCluster.pm +--- ../../DBIx-DBCluster-0.01/DBCluster.pm 2003-06-17 22:00:18.000000000 +0200 ++++ DBIx-DBCluster-0.01/DBCluster.pm 2012-02-13 17:54:08.000000000 +0100 +@@ -27,7 +27,7 @@ + our $CLUSTERS; + our $DEBUG; + our @WRITE_COMMANDS; +- ++our $WRITE_HOSTS_NEVER_READ; + + my %PRIVATE; + +@@ -42,7 +42,6 @@ + my ($write_dbh,$read_dbh); + my $hostname = _get_hostname($dsn); + +- + _debug("Analyzing this hostname/label: $hostname"); + _debug("No such label found in cluster definitions - will try this as a hostname") unless defined $CLUSTERS->{$hostname}; + +@@ -159,10 +158,20 @@ + sub _get_hostname { + my $driver_args = (split(':', shift))[2]; + ++ + return '' unless $driver_args; + +- $driver_args =~ /^.+\@(.+)$/; +- return $1 if $1; ++ $driver_args =~ /^.+\@((.+))$/; ++ return $2 if $2; ++# $driver_args =~ /^.+\@(.+)$/; ++# if ($1){ return $1 } ; ++ ++# For some strange resaon $1 ALWAYS contains programname (like $0) under some scripts ++# Coulndt figure out why, so came up with the above ugly little hack. ++# $driver_args =~ /^.+\@(.+)$/; ++# return $1 if $1; ++ ++ + + $driver_args =~ /host=([^;]+)/; + return $1 if $1; +@@ -415,12 +424,12 @@ + if ($PRIVATE{$self}->{QUERY_STATE} eq 'TRANSACTION_WRITE' || $self->_compare_tables_used($sql)){ + $selection = 'WRITE_DBH'; + } else { +- $selection = 'AUTO'; ++ $selection = ($WRITE_HOSTS_NEVER_READ)?'READ_DBH':'AUTO'; + } + + my $server = $self->_choose_server($selection); + +- _debug("Statement directed to $server"); ++ _debug("Read Statement directed to $server"); + + $result = $PRIVATE{$self}->{$server}->$command($sql, @_); + } | ||