equal
deleted
inserted
replaced
150 } |
150 } |
151 } |
151 } |
152 |
152 |
153 if ($opt_db) { |
153 if ($opt_db) { |
154 END { $Dbh->disconnect() if $Dbh; } |
154 END { $Dbh->disconnect() if $Dbh; } |
155 $Dbh = DBI->connect($DSN, $USER, $PW, { RaiseError => 0 }); |
155 $Dbh = DBI->connect($DSN, $USER, $PW, { RaiseError => 0 }) |
156 if (!$Dbh or !$Dbh->connected) { |
156 or warn $DBI::errstr; |
157 warn $DBI::errstr; |
|
158 } |
|
159 } |
157 } |
160 |
158 |
161 # Temporärfile öffnen |
159 # Temporärfile öffnen |
162 my ($fh, $file) = tempfile(DIR => "/tmp", UNLINK => 1); |
160 my ($fh, $file) = tempfile(DIR => "/tmp", UNLINK => 1); |
163 |
161 |