r77698 - /scripts/forward-bug

gregoa at users.alioth.debian.org gregoa at users.alioth.debian.org
Thu Jul 21 14:43:40 UTC 2011


Author: gregoa
Date: Thu Jul 21 14:43:38 2011
New Revision: 77698

URL: http://svn.debian.org/wsvn/?sc=1&rev=77698
Log:
two typos and a TODO or commented out because not working idea)

Modified:
    scripts/forward-bug

Modified: scripts/forward-bug
URL: http://svn.debian.org/wsvn/scripts/forward-bug?rev=77698&op=diff
==============================================================================
--- scripts/forward-bug (original)
+++ scripts/forward-bug Thu Jul 21 14:43:38 2011
@@ -41,7 +41,7 @@
 
 if (!$dist) {
 	open my $dctrl, '<', 'debian/control'
-		or die "Err: Can't open debain/control for reading: $!";
+		or die "Err: Can't open debian/control for reading: $!";
 
 	while (<$dctrl>) {
 		if (/^Homepage/) {
@@ -53,7 +53,7 @@
 
 if (!$dist) {
 	open my $dcopyright, '<', 'debian/copyright'
-		or die "Err: Can't open debain/copyright for reading: $!";
+		or die "Err: Can't open debian/copyright for reading: $!";
 
 	while (<$dcopyright>) {
 		if (/^Source/) {
@@ -79,6 +79,11 @@
 if ($info -> {'forwarded'}) {
 	die 'Err: Bug already forwarded at '.$info -> {'forwarded'};
 }
+
+# (cf. http://wiki.debian.org/DebbugsSoapInterface)
+# would be nice to get the body of the first message
+# this one should do but fails with a SOAP error
+# my $log = $soap -> get_bug_log($bug) -> result();
 
 # RT config
 my $rtserver = 'https://rt.cpan.org';




More information about the Pkg-perl-cvs-commits mailing list