File: joetest6.pl

package info (click to toggle)
libdbd-odbc-perl 1.24-1
  • links: PTS, VCS
  • area: main
  • in suites: squeeze
  • size: 1,012 kB
  • ctags: 398
  • sloc: perl: 6,314; ansic: 4,875; makefile: 29; sql: 8
file content (13 lines) | stat: -rwxr-xr-x 265 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
 
#!perl -w
# $Id: joetest6.pl 11680 2008-08-28 08:23:27Z mjevans $


use strict;
use DBI;

my $dbh1 = DBI->connect() or die "Can't connect 1\n$DBI::errstr\n";

my $dbh2 = DBI->connect() or die "Can't connect 2\n$DBI::errstr\n";

$dbh1->disconnect;
$dbh2->disconnect;