errors in cvs

[Goswin von Brederlow <brederlo@informatik.uni-tuebingen.de>]

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