Useless use of a constant in void context at libbuilder.pl line 77.

##</code><code>##

$dbh = ("DBI:mysql:host=localhost; database=blah",
                        "blah", "blah",
                        {PrintError => 0, RaiseError=>1});

##</code><code>##

$dbh = DBI->connect( "DBI:mysql:host=localhost;database=blah",
                    $user, $passwd, {PrintError=>0,RaisError=>1});

##</code><code>##

  $index->{$word} = ( exists $index->{$word} ?
    "$index->{$word}:" : "" ) . "$file_id" unless
      $seen_in_file{$word}++;

##</code><code>##

 if ( ! $seen_in_file{$word} ) {
    $index{$word} .= ":" if ( exists( $index{$word} ));
    $index{$word} .= $file_id;
    $seen_in_file{$word}++;
 }