r42036 - /scripts/examples/gen-itp
ryan52-guest at users.alioth.debian.org
ryan52-guest at users.alioth.debian.org
Mon Aug 17 20:33:22 UTC 2009
Author: ryan52-guest
Date: Mon Aug 17 20:33:15 2009
New Revision: 42036
URL: http://svn.debian.org/wsvn/?sc=1&rev=42036
Log:
only CC debian-perl if this is a Perl package
Modified:
scripts/examples/gen-itp
Modified: scripts/examples/gen-itp
URL: http://svn.debian.org/wsvn/scripts/examples/gen-itp?rev=42036&op=diff
==============================================================================
--- scripts/examples/gen-itp (original)
+++ scripts/examples/gen-itp Mon Aug 17 20:33:15 2009
@@ -58,6 +58,15 @@
my $changelog = parsecdata($changelog_file, "debian/changelog");
close $changelog_file;
+my $lang;
+if($source->{Source} =~ m/-perl$/) {
+ $lang = "Perl";
+} elsif($source->{Source} =~ m/-ruby$/) {
+ $lang = "Ruby";
+} else {
+ $lang = "FIXME";
+}
+
p "From: " . $changelog->{Maintainer};
p "To: Debian Bug Tracking System <submit\@bugs.debian.org>";
p "Subject: ITP: " . $source->{Source} . " -- " . $short_description;
@@ -72,7 +81,11 @@
p "Package: wnpp";
p "Owner: " . $owner;
p "Severity: wishlist";
-p "X-Debbugs-CC: debian-devel\@lists.debian.org,debian-perl\@lists.debian.org";
+if($lang eq "Perl") {
+ p "X-Debbugs-CC: debian-devel\@lists.debian.org,debian-perl\@lists.debian.org";
+} else {
+ p "X-Debbugs-CC: debian-devel\@lists.debian.org";
+}
p;
p "* Package name : " . $source->{Source};
my $version = $changelog->{Version};
@@ -87,14 +100,6 @@
}
p "* URL : " . $homepage;
p "* License : " . $main_files->{'License'};
-my $lang;
-if($source->{Source} =~ m/-perl$/) {
- $lang = "Perl";
-} elsif($source->{Source} =~ m/-ruby$/) {
- $lang = "Ruby";
-} else {
- $lang = "FIXME";
-}
p " Programming Lang: " . $lang;
p " Description : " . $pkg->{Description};
More information about the Pkg-perl-cvs-commits
mailing list