[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