| Subject: | Uninitialized value warnings |
The attached patch fixes a couple of 'Use of uninitialized values'
warnings that can occur in Chart::Strip when it uses uninitialized
values in a couple of calculations.
| Subject: | Chart-Strip.patch |
--- /usr/local/lib/perl5/site_perl/5.8.8/Chart/Strip.pm.orig 2007-04-05 12:14:11.000000000 -0400
+++ /usr/local/lib/perl5/site_perl/5.8.8/Chart/Strip.pm 2007-04-05 12:16:43.000000000 -0400
@@ -183,6 +183,8 @@
draw_tic_labels => 1,
draw_data_labels=> 1,
+ limit_factor => 0,
+
# title
# x_label
# y_label
@@ -721,7 +723,9 @@
return unless $me->{draw_data_labels};
- my( $tw, $r, @cl, @cx );
+ my( @cl, @cx );
+ my $r = 0;
+ my $tw = 0;
# round the neck of the bottle was a paper label, with the
# words 'DRINK ME' beautifully printed on it in large letters
# -- Alice in Wonderland