http://www.perlmonks.org?node_id=359638

Public Scratchpad

Download, Select Code To D/L

---

So how come this works...

    do 
    {
      my $line = $sock->getline();
      $line =~ s/\n//g;  #trim off any newline characters
      if ( $line eq $completion_line)
      {
        $completion=1;
      }
      else
      {
        push(@items, $line);
        print("Line: \"$line\"\n");
        $sth->execute($backup_archive,$line) or die("Could not perform
+ query: " . $sth->errstr);
      }
    } until ( $completion == 1);
[download]

But a final line of this causes the loop not to terminate??

    until(  $line eq $completion_line );
[download]