diff options
author | elliott_c <ocielliottc@users.noreply.github.com> | 2004-02-18 19:54:39 +0000 |
---|---|---|
committer | elliott_c <ocielliottc@users.noreply.github.com> | 2004-02-18 19:54:39 +0000 |
commit | 4841a0c99a03ff5e2c4c8992c29ab9523d9eede9 (patch) | |
tree | b5122c4d3e6428ef21d30a7d893de0b3de69a6dd /modules/FeatureParser.pm | |
parent | 4aa3fd55092362e8191badefe953a924b2082dd7 (diff) | |
download | MPC-4841a0c99a03ff5e2c4c8992c29ab9523d9eede9.tar.gz |
ChangeLogTag: Wed Feb 18 13:51:28 2004 Chad Elliott <elliott_c@ociweb.com>
Diffstat (limited to 'modules/FeatureParser.pm')
-rw-r--r-- | modules/FeatureParser.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/modules/FeatureParser.pm b/modules/FeatureParser.pm index 46c871ab..0fc3c17c 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(); - print "$f: line $lnumber:\n"; - $self->warning($warn); + $self->warning(basename($f) . ": line $lnumber: $warn"); } } } |