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