errors in cvs

[Goswin von Brederlow]

Hi,

I updated to cvs and get the following:

Use of uninitialized value in string at /etc/debbugs/text line 15.

The problem seems to be that before doing

require '/etc/debbugs/text';

one has to set $gBadEmailPrefix first:

--- form scripts/receive.in ---
#set source of mail delivery
#sets any prefix needed to get mailer to add it to error mail
use vars qw($gMailer $gBadEmailPrefix); # added by me
if ( $gMailer eq 'exim' ) 
{       $gBadEmailPrefix = '';
        $_ = $ENV{'LOCAL_PART'};
} elsif ( $gMailer eq 'qmail' )
{       $gBadEmailPrefix = '//';
        $_ = $ENV{'DEFAULT'};
#       $_ = $ENV{'RECIPIENT'};
#       s/^\w+-bugs--?//;
} else 
{       $gBadEmailPrefix = '';
        $_ = $ARGV[0];
        s/\>//;
        s/\<//;
}
-------------------------------

And receive.in is missing the

use vars qw($gMailer $gBadEmailPrefix);

Is that correct that way or am I just to stupid for perl?

MfG
        Goswin