diff options
| author | fields_t <oth3r1if3@users.noreply.github.com> | 2004-03-20 18:58:41 +0000 |
|---|---|---|
| committer | fields_t <oth3r1if3@users.noreply.github.com> | 2004-03-20 18:58:41 +0000 |
| commit | e3979c220265ff9e22172831a30cf5f6a1f5d5d8 (patch) | |
| tree | 1c66ab6f8e47552300353cdb9c3a70d7de57fdfc | |
| parent | 88a409f10ef5f8c303fc29be609d455c94960655 (diff) | |
| download | MPC-unlabeled-1.2.18.tar.gz | |
Fri Mar 19 15:35:27 MST 2004 Trevor Fields <fields_t@ociweb.com>unlabeled-1.2.18
| -rw-r--r-- | modules/FeatureParser.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/modules/FeatureParser.pm b/modules/FeatureParser.pm index c5d608bc..71670f5b 100644 --- a/modules/FeatureParser.pm +++ b/modules/FeatureParser.pm @@ -11,6 +11,7 @@ package FeatureParser; # ************************************************************ use strict; +use File::Basename; use Parser; @@ -38,8 +39,7 @@ sub new { ## We only want to warn the user about problems ## with the feature file. my($lnumber) = $self->get_line_number(); - $warn =~ s/ERROR/WARNING/; - print "$f: line $lnumber:\n$warn\n"; + $self->warning(basename($f) . ": line $lnumber: $warn"); } } } @@ -53,7 +53,7 @@ sub parse_line { my($if) = shift; my($line) = shift; my($status) = 1; - my($error) = ''; + my($error) = undef; if ($line eq '') { } @@ -62,7 +62,7 @@ sub parse_line { } else { $status = 0; - $error = "ERROR: Unrecognized line: $line"; + $error = "Unrecognized line: $line"; } return $status, $error; |