fixed bug that data_source DEPRECATED warnings pirnt... ・ b7dfcd4 ・ Gitprep

Code
Issues
0
Pull request
0
Wiki
Members

- fixed bug that data_source DEPRECATED warnings pirnt...
  
  ...STDERR
- Browse files
- Yuki Kimoto commited on 2011-06-13
- 1 parent 79263da
  
  commit b7dfcd4077d5e49b58fb5904331308c379d28efd

Showing 2 changed files with 3 additions and 1 deletions

Changes

...	...	@@ -1,4 +1,5 @@
1	1	0.1691
	2	+ - fixed bug that data_source DEPRECATED warnings pirnt STDERR
2	3	- fixed bug that type_rule from option can't receive filter name
3	4	0.1690
4	5	- use latest Object::Simple features

+2 -1

lib/DBIx/Custom.pm

View

@@ -1242,7 +1242,8 @@ sub _connect {
     
     # Attributes
     my $dsn = $self->data_source;
-    warn "data_source is DEPRECATED! use dsn instead\n";
+    warn "data_source is DEPRECATED! use dsn instead\n"
+      if $dsn;
     $dsn ||= $self->dsn;
     croak qq{"dsn" must be specified } . _subname
       unless $dsn;

...	...	@@ -1242,7 +1242,8 @@ sub _connect {
1242	1242
1243	1243	# Attributes
1244	1244	my $dsn = $self->data_source;
1245		- warn "data_source is DEPRECATED! use dsn instead\n";
	1245	+ warn "data_source is DEPRECATED! use dsn instead\n"
	1246	+ if $dsn;
1246	1247	$dsn \|\|= $self->dsn;
1247	1248	croak qq{"dsn" must be specified } . _subname
1248	1249	unless $dsn;