r17180 - /scripts/svn-tag-pending-bugs

[dmn at users.alioth.debian.org]

Author: dmn
Date: Tue Mar 11 11:25:22 2008
New Revision: 17180

URL: http://svn.debian.org/wsvn/?sc=1&rev=17180
Log:
use "pkg-perl-maintainers at lists.debian.org" for sender

Modified:
    scripts/svn-tag-pending-bugs

Modified: scripts/svn-tag-pending-bugs
URL: http://svn.debian.org/wsvn/scripts/svn-tag-pending-bugs?rev=17180&op=diff
==============================================================================
--- scripts/svn-tag-pending-bugs (original)
+++ scripts/svn-tag-pending-bugs Tue Mar 11 11:25:22 2008
@@ -14,6 +14,8 @@
 use Mail::Send;
 use File::Basename qw(basename);
 use Sys::Hostname::Long;
+
+use constant FROM	=> 'pkg-perl-maintainers at lists.alioth.debian.org';
 
 my( $repo_path, $revision ) = @ARGV;
 
@@ -46,6 +48,7 @@
 $author = "$who[6] ($who[0])";
 
 my $msg = Mail::Send->new(
+  From	=> FROM,
   Subject=>"Bug in $package fixed in revision $revision",
   Bcc	=> 'control at bugs.debian.org',
 );