[Fedora-security-commits] fedora-security/tools/lib/Libexig Fedora.pm, 1.1.2.3, 1.1.2.4

[fedora-security-commits at redhat.com]

Author: thoger

Update of /cvs/fedora/fedora-security/tools/lib/Libexig
In directory cvs-int.fedora.redhat.com:/tmp/cvs-serv23159/tools/lib/Libexig

Modified Files:
      Tag: lkundrak-tools-ng
	Fedora.pm 
Log Message:
an attempt to unscrew add-tracking-bugs



Index: Fedora.pm
===================================================================
RCS file: /cvs/fedora/fedora-security/tools/lib/Libexig/Attic/Fedora.pm,v
retrieving revision 1.1.2.3
retrieving revision 1.1.2.4
diff -u -r1.1.2.3 -r1.1.2.4
--- Fedora.pm	10 Jan 2008 18:01:24 -0000	1.1.2.3
+++ Fedora.pm	14 Jan 2008 13:52:05 -0000	1.1.2.4
@@ -199,6 +199,14 @@
 	return \@retval;
 }
 
+# file_tracking_bugs
+#
+# Arguments:
+# - ref to list of parent bug ids
+# - ref to list of bugs to file (each element must be hash as expected by BZ)
+#   this list is prepared by tracking_bugs
+# - Bugzilla object reference
+# - component
 sub file_tracking_bugs
 {
 	my $parent_bugs = shift;
@@ -212,6 +220,11 @@
 		use Data::Dumper;
 		my $bug_id = $bugzilla->file_bug ($bug);
 
+		if (!defined($bug_id)) {
+			print STDERR "Error: Bug creation failed! (dryrun mode?)\n";
+			#return undef;
+		}
+
 		### XXX: Move this somewhere else?
 		if ($bug->{'version'} ne 'rawhide') {
 			my $tr_comment = 
@@ -224,7 +237,7 @@
 				'&bugs='.$bug_id;
 
 			foreach my $bug (@{$parent_bugs}) {
-				$tr_comment .= ','.$bug->{'bug_id'};
+				$tr_comment .= ','.$bug;
 			}
 
 			$bugzilla->add_comment ($bug_id, $tr_comment);