X-Git-Url: https://git.distorted.org.uk/~mdw/dvddb/blobdiff_plain/75a5b9248f89fd40189035093b751a7bbcd0292d..b2a25885cb81761a2b33014a00f843e76f4ce83c:/upgrade-v2

diff --git a/upgrade-v2 b/upgrade-v2
index 1846791..f998f3c 100755
--- a/upgrade-v2
+++ b/upgrade-v2
@@ -10,12 +10,13 @@ BEGIN { binmode STDOUT, ":utf8"; }
 my $DB = DBI->connect("dbi:Pg:host=roadstar", "", "",
 		      { AutoCommit => 0, RaiseError => 1 });
 
-my $st = $DB->prepare("SELECT title, ndisc, path FROM old_dvd ORDER BY title");
+my $st = $DB->prepare
+  ("SELECT title, ndisc, path FROM old_dvd ORDER BY title");
 $st->execute;
 
-my $st1 = $DB->prepare("INSERT INTO dvd (title, disc, path) VALUES (?, ?, ?)");
-ROW: for (;;) {
-  my @r = $st->fetchrow_array; last ROW unless @r;
+my $st1 = $DB->prepare
+  ("INSERT INTO dvd (title, disc, path) VALUES (?, ?, ?)");
+while (my @r = $st->fetchrow_array) {
   my ($title, $ndisc, $path) = @r;
   print ";; $title [$ndisc]\n";
   for (my $i = 0; $i < $ndisc; $i++) { $st1->execute($title, $i, $path); }