my $DB = DBI->connect("dbi:Pg:host=roadstar", "", "",
{ AutoCommit => 0, RaiseError => 1 });
-my $st_outer =
- $DB->prepare("SELECT title, COUNT(*) FROM old_dvd GROUP BY title");
-my $st_inner =
- $DB->prepare("SELECT disc, path, discid FROM old_dvd WHERE title = ?");
-my $st_add_set =
- $DB->prepare("INSERT INTO dvd_set (name, ndisc)
- VALUES (?, ?)
- RETURNING id");
-my $st_add_disc =
- $DB->prepare("INSERT INTO dvd_disc (set_id, disc, path, disc_id)
- VALUES (?, ?, ?, ?)");
+my $st_outer = $DB->prepare
+ ("SELECT title, COUNT(*) FROM old_dvd GROUP BY title");
+my $st_inner = $DB->prepare
+ ("SELECT disc, path, discid FROM old_dvd WHERE title = ?");
+my $st_add_set = $DB->prepare
+ ("INSERT INTO dvd_set (name, ndisc) VALUES (?, ?) RETURNING id");
+my $st_add_disc = $DB->prepare
+ ("INSERT INTO dvd_disc (set_id, disc, path, disc_id) VALUES (?, ?, ?, ?)");
$st_outer->execute;
OUTER: for (;;) {