[interchange-docs] xmldocs - jon modified 2 files

docs at icdevgroup.org docs at icdevgroup.org
Thu Apr 24 15:41:04 UTC 2008


User:      jon
Date:      2008-04-24 15:41:04 GMT
Modified:  bin      refs-autogen stattree
Log:
Quell warnings due to uninitialized variables.

(Davor, feel free to revert if you actually want that noise, but
this seemed to make sense to me.)

Revision  Changes    Path
1.126                xmldocs/bin/refs-autogen


rev 1.126, prev_rev 1.125
Index: refs-autogen
===================================================================
RCS file: /var/cvs/xmldocs/bin/refs-autogen,v
retrieving revision 1.125
retrieving revision 1.126
diff -u -u -r1.125 -r1.126
--- refs-autogen	16 Mar 2008 21:29:27 -0000	1.125
+++ refs-autogen	24 Apr 2008 15:41:04 -0000	1.126
@@ -465,12 +465,13 @@
 
 			if ( $ar ) {
 				$$ag{source} = "";
-				$covered{$gkey}{$key} = {}; # This one was though to find ;-)
+				$covered{$gkey}{$key} = {}; # This one was tough to find ;-)
 			}
 
 			my $ctxtotal = scalar @$ar;
 			my $ctxshown = 0;
 			for my $ctx ( @$ar ) {
+				no warnings 'uninitialized';
 
 				my $fi = $$ctx{file};
 				my $ln = $$ctx{lnum} || 0; #HA! How come $$ctx{lnum} is undefined??
@@ -1312,9 +1313,12 @@
 sub update_field {
 	my ($mode, $group, $name, $sref, $fn, $sect, $content, $pre, $post) = @_;
 
-	$sect =~ s/[\-\.\+_:\d].*//;
-	$sect =~ s/([a-z])([A-Z])/$1 $2/g;
-	$sect = lc $sect;
+	{
+		no warnings 'uninitialized';
+		$sect =~ s/[\-\.\+_:\d].*//;
+		$sect =~ s/([a-z])([A-Z])/$1 $2/g;
+		$sect = lc $sect;
+	}
 
 	$pre ||= "";
 	$post ||= "";



1.61                 xmldocs/bin/stattree


rev 1.61, prev_rev 1.60
Index: stattree
===================================================================
RCS file: /var/cvs/xmldocs/bin/stattree,v
retrieving revision 1.60
retrieving revision 1.61
diff -u -u -r1.60 -r1.61
--- stattree	14 Nov 2007 22:42:39 -0000	1.60
+++ stattree	24 Apr 2008 15:41:04 -0000	1.61
@@ -909,11 +909,10 @@
 		($c{line} =~ /(()|\$())\$(::)?Cfg(->\2|\3){(\w+?)}/ and $name=$6)
 		or ($c{line} =~ /(()|\$())\$(::)?Config(->\2|\3){(\w+?)}/ and $name=$6)
 		) {
-
-		push(
-				@{$hash{uses}{$$context_data{group}}{$$context_data{name}}{catconf}},
-				$name) unless grep {/^$name$/}
-		@{$hash{uses}{$$context_data{group}}{$$context_data{name}}{catconf}}
+		no warnings 'uninitialized';
+		push @{$hash{uses}{$$context_data{group}}{$$context_data{name}}{catconf}}, $name
+			unless grep {/^$name$/}
+				@{$hash{uses}{$$context_data{group}}{$$context_data{name}}{catconf}};
 	}
 }
 







More information about the docs mailing list