Subversion Repositories DevTools

Rev

Rev 5919 | Rev 6776 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5919 Rev 5923
Line 131... Line 131...
131 
        #   Extract status and any error information
 131 
        #   Extract status and any error information
132 
        #
 132 
        #
133 
        my $fh = $self->{FH_READ};
 133 
        my $fh = $self->{FH_READ};
134 
        while ( <$fh> )
 134 
        while ( <$fh> )
135 
        {
 135 
        {
136 
            $_ =~ s~\s+$~~;
 136 
            chomp;
137 
            print "[DBI] Connect: $_\n" if $verbose;
 137 
            print "[DBI] Connect: $_\n" if $verbose;
138 
 
 138 
 
139 
            if ( m/^ConnectionOpened:/ )
 139 
            if ( m/^ConnectionOpened:/ )
140 
            {
 140 
            {
141 
                $self->{ERROR} = 0;
 141 
                $self->{ERROR} = 0;