r77976 - /scripts/git-tag-pending-bugs

[dmn at users.alioth.debian.org]

Author: dmn
Date: Fri Jul 29 09:58:40 2011
New Revision: 77976

URL: http://svn.debian.org/wsvn/?sc=1&rev=77976
Log:
fix determining package name, subject change

Modified:
    scripts/git-tag-pending-bugs

Modified: scripts/git-tag-pending-bugs
URL: http://svn.debian.org/wsvn/scripts/git-tag-pending-bugs?rev=77976&op=diff
==============================================================================
--- scripts/git-tag-pending-bugs (original)
+++ scripts/git-tag-pending-bugs Fri Jul 29 09:58:40 2011
@@ -10,6 +10,7 @@
 # the terms of Perl
 
 use strict;
+use Cwd qw(realpath);
 use File::Basename qw(basename);
 use Getopt::Long;
 use Git;
@@ -29,7 +30,7 @@
 my $git = Git->repository($repo_path);
 my ( $package, $author, $log );
 
-$package = basename($repo_path);
+$package = basename(realpath($repo_path));
 $package =~ s/\.git$//;
 
 for my $line ( $git->command( show => '--format=medium' => $revision ) ) {
@@ -60,7 +61,7 @@
 exit unless @bugs;
 
 my $msg = Mail::Send->new(
-  Subject=>"Bug in $package fixed in revision $revision",
+  Subject=>"Pending fixes for bugs in the $package package",
   Bcc	=> 'control at bugs.debian.org',
 );
 $msg->add('From', FROM);