Skip Menu |

This queue is for tickets about the Device-VantagePro CPAN distribution.

Report information
The Basics
Id: 91709
Status: resolved
Priority: 0/
Queue: Device-VantagePro

People
Owner: Nobody in particular
Requestors: andy [...] andybev.com
Cc:
AdminCc:

Bug Information
Severity: Unimportant
Broken in: (no value)
Fixed in: (no value)



Subject: Minor documentation corrections
Hi, Please find attached a patch that corrects some minor documentation typos. The main one that caught me out was the incorrect variable name in the do_dmpaft example. Thanks for a great module, Andy
Subject: doc.patch
diff -Naur Device-VantagePro-0.23/lib/Device/VantagePro.pm Device-VantagePro-0.23-andy/lib/Device/VantagePro.pm --- Device-VantagePro-0.23/lib/Device/VantagePro.pm 2010-04-21 02:33:14.000000000 +0100 +++ Device-VantagePro-0.23-andy/lib/Device/VantagePro.pm 2013-12-28 18:41:21.625841323 +0000 @@ -703,6 +703,7 @@ =head1 SYNOPSIS use Device::VantagePro; + use Data::Dumper; my %arg_hsh; $arg_hsh{baudrate} = 19200; @@ -810,7 +811,7 @@ =head2 gettime -Retreive the current device time +Retrieve the current device time my $ref = $vp_obj->gettime(); @@ -819,7 +820,7 @@ # hour : min : sec month / day / year print "$ref->[2]:$ref->[1]:$ref->[0] $ref->[4]/$ref->[3]/$ref->[5]\n"; -The values are returned in the same order as provided in the Davis documentatoin. +The values are returned in the same order as provided in the Davis documentation. =head2 settime @@ -844,7 +845,7 @@ =head2 read_loop -Reads the LOOP data format as identified in B<Section IX Data Formats> in the documenation. Note this +Reads the LOOP data format as identified in B<Section IX Data Formats> in the documentation. Note this only reads the later revision B loop format that is found in Vantage Pro devices after April 2002. The data is returned via a reference to a hash. @@ -890,10 +891,9 @@ The returned value is a reference to a list of hashes, one hash for each archive record. - my $rst = $vp_obj->do_dmpaft($dstamp,$tstamp); + my $ref = $vp_obj->do_dmpaft($dstamp,$tstamp); unless ( @{$ref} ) { return 0 } - my $data_ref; foreach my $arc_ref ( @{$ref} ) { # Do something with the hash reference....
Merged in b33243a.