Subversion Repositories CoffeeCatalog

Rev

Rev 3 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 3 Rev 4
Line 15... Line 15...
15 
  sub connect_with_option_file  {
 15 
  sub connect_with_option_file  {
16 
	  $dsn .= ";mysql_read_default_file=$ENV{HOME}/.my.cnf";
 16 
	  $dsn .= ";mysql_read_default_file=$ENV{HOME}/.my.cnf";
17 
	  return (DBI->connect ($dsn, undef, undef,
 17 
	  return (DBI->connect ($dsn, undef, undef,
18 
	  {PrintError => 0, RaiseError => 1}));
 18 
	  {PrintError => 0, RaiseError => 1}));
19 
  }
 19 
  }
- 
 
 20 
  sub trim {
- 
 
 21 
    my $str = shift;
Line -... Line 22...
- 
 
 22 
 
- 
 
 23 
  	return "" if !defined $str;
- 
 
 24 
  	$str =~ s/^\s+//;
- 
 
 25 
  	$str =~ s/\s+$//;
- 
 
 26 
  	return ($str);
20 
 
 27 
  }