← Back to branch summary

~ubuntu-branches/ubuntu/jaunty/horae/jaunty

« back to all changes in this revision

Viewing changes to Ifeffit/ArtemisLog.pm

  • Committer: Bazaar Package Importer
  • Author(s): Carlo Segre
  • Date: 2008-02-23 23:13:02 UTC
  • mfrom: (2.1.2 hardy)
  • Revision ID: james.westby@ubuntu.com-20080223231302-mnyyxs3icvrus4ke
Tags: 066-3
Apply patch to athena_parts/misc.pl for compatibility with 
perl-tk 804.28.

Show diffs side-by-side

added added

removed removed

Lines of Context:
Ifeffit/ArtemisLog.pm
48
48
# Do not simply export all your public functions/methods/constants.
49
49
@EXPORT_OK = qw();
50
50
 
51
 
$VERSION = "0.8.008";
 
51
$VERSION = "0.8.011";
52
52
 
53
53
use Carp;
54
54
use File::Basename;
134
134
  open(LOG, $logfile) or croak "could not open $logfile as a logfile";
135
135
 
136
136
  while (<LOG>) {
 
137
    $_ =~ s{\r}{};
137
138
    chomp;
138
139
    next if (/^\s*$/);
139
140
  WHERE: {
281
282
          $self->{$current_set}->{paths} = [];
282
283
          last WHERE;
283
284
        };
284
 
        if (/^\s+(\w+)\s+=\s+(-?\d*\.\d+)\s+:=(.+)/) {
 
285
        if (/^\s+(\w+)\s+=\s+(-?\d*\.\d+)\s+(?:\:=)?\s+(.+)/) {
285
286
          $self->{restraint}{$1} = $2;
286
287
          $self->{restraint_expr}{$1} = $3;
287
288
        };
465
466
##   return (keys %{$self->{corr}})        if (lc($_[0]) eq 'corr');
466
467
 
467
468
  return ('Project title', 'Comment', 'Prepared by', 'Contact', 'Started',
468
 
          'This fit at', 'Environment', 'Figure of merit') if (lc($_[0]) eq 'info');
 
469
          'This fit at', 'Environment', 'Fit label', 'Data sets',
 
470
          'Figure of merit') if (lc($_[0]) eq 'info');
469
471
  return (qw(nidp nvar chisqr chinu rfact epsk epsr cormin ndata
470
472
             pathindex cormin))         if (lc($_[0]) eq 'stats');
471
473
  return (qw(file titles paths krange dk kwin kw rrange dr rwin fitspace
480
482
  my $escaped = _escape_meta($item);
481
483
 
482
484
  my @info  = ('Project title', 'Comment', 'Prepared by', 'Contact', 'Started',
483
 
               'This fit at', 'Environment', 'Figure of merit');
 
485
               'This fit at', 'Environment', 'Fit label', 'Data sets', 'Figure of merit');
484
486
  my @stats = (qw(nidp nvar chisqr chinu rfact epsk epsr cormin ndata
485
487
                  pathindex cormin));
486
488