[Koha-cvs] CVS: koha/misc/translator VerboseWarnings.pm,1.2,1.3

[Ambrose C. LI]

Update of /cvsroot/koha/koha/misc/translator
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2582

Modified Files:
        VerboseWarnings.pm 
Log Message:
Bit a bit lenient on whether a file name has been set


Index: VerboseWarnings.pm
===================================================================
RCS file: /cvsroot/koha/koha/misc/translator/VerboseWarnings.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** VerboseWarnings.pm  17 Feb 2004 02:45:27 -0000      1.2
--- VerboseWarnings.pm  23 Feb 2004 19:56:47 -0000      1.3
***************
*** 61,65 ****
            unless defined $appName;
      die "construct_warn_prefix called before set_input_file_name"
!           unless defined $input;
      die "construct_warn_prefix called before set_pedantic_mode"
            unless defined $pedantic_tag;
--- 61,65 ----
            unless defined $appName;
      die "construct_warn_prefix called before set_input_file_name"
!           unless defined $input || !defined $lc; # be a bit lenient
      die "construct_warn_prefix called before set_pedantic_mode"
            unless defined $pedantic_tag;
***************
*** 68,72 ****
      # FIXME: This wording is worse than what was there, but it's wrong to
      # FIXME: hard-code this thing in each warn statement. Need improvement.
!     return "$appName: $prefix: " . (defined $lc? "$input_abbr: line $lc: ": 
"$input_abbr: ");
  }
  
--- 68,72 ----
      # FIXME: This wording is worse than what was there, but it's wrong to
      # FIXME: hard-code this thing in each warn statement. Need improvement.
!     return "$appName: $prefix: " . (defined $lc? "$input_abbr: line $lc: ": 
defined $input_abbr? "$input_abbr: ": '');
  }