← Back to branch summary

~n3npq/lsb/distribution-checker

« back to all changes in this revision

Viewing changes to utils/Tests/Tcl_test.pm

  • Committer: biga
  • Date: 2009-06-02 12:23:46 UTC
  • Revision ID: biga@spidey.linux-foundation.org-20090602122346-qf0f7hls7hwtfxoc
Version 4.0.1.1

Show diffs side-by-side

added added

removed removed

Lines of Context:
utils/Tests/Tcl_test.pm
123
123
        my ($self) = @_;
124
124
        
125
125
        is_ok $self->copy_file( $self->temp_dir."/".$self->{JOURNAL_FILE}, $self->journal_file )
126
 
                or $self->report_error($Error::Last);
 
126
                or $self->report_error(complain $Error::Last);
127
127
}
128
128
 
129
129
sub check_progress {