projects
/
rrdtool.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
aniel Pocock reported that the argument may be NULL in low-diskspace
[rrdtool.git]
/
bindings
/
perl-shared
/
RRDs.pm
diff --git
a/bindings/perl-shared/RRDs.pm
b/bindings/perl-shared/RRDs.pm
index
fbb10ae
..
3531a27
100644
(file)
--- a/
bindings/perl-shared/RRDs.pm
+++ b/
bindings/perl-shared/RRDs.pm
@@
-7,7
+7,7
@@
use vars qw(@ISA $VERSION);
require DynaLoader;
require DynaLoader;
-$VERSION=1.
299908060800
;
+$VERSION=1.
3002
;
bootstrap RRDs $VERSION;
bootstrap RRDs $VERSION;
@@
-82,10
+82,10
@@
B<RRDs::last> returns a single INTEGER representing the last update time.
$lastupdate = RRDs::last ...
$lastupdate = RRDs::last ...
-B<RRDs::graph> returns an
pointer to an
ARRAY containing the x-size and y-size of the
-created image and results of the PRINT arguments.
+B<RRDs::graph> returns an ARRAY containing the x-size and y-size of the
+created image and
a pointer to an array with the
results of the PRINT arguments.
- ($
averages
,$xsize,$ysize) = RRDs::graph ...
+ ($
result_arr
,$xsize,$ysize) = RRDs::graph ...
print "Imagesize: ${xsize}x${ysize}\n";
print "Averages: ", (join ", ", @$averages);
print "Imagesize: ${xsize}x${ysize}\n";
print "Averages: ", (join ", ", @$averages);
@@
-119,10
+119,10
@@
integers, a pointer to an array and a pointer to a array of pointers.
print "DS names: ", join (", ", @$names)."\n";
print "Data points: ", $#$data + 1, "\n";
print "Data:\n";
print "DS names: ", join (", ", @$names)."\n";
print "Data points: ", $#$data + 1, "\n";
print "Data:\n";
- for
each
my $line (@$data) {
+ for my $line (@$data) {
print " ", scalar localtime($start), " ($start) ";
$start += $step;
print " ", scalar localtime($start), " ($start) ";
$start += $step;
- for
each
my $val (@$line) {
+ for my $val (@$line) {
printf "%12.1f ", $val;
}
print "\n";
printf "%12.1f ", $val;
}
print "\n";