diff options
| author | Tobi Oetiker <tobi@oetiker.ch> | 2007-07-26 00:14:53 +0200 |
|---|---|---|
| committer | Tobi Oetiker <tobi@oetiker.ch> | 2007-07-26 00:14:53 +0200 |
| commit | 6daef9205280f61b5830c13836b849eb11462471 (patch) | |
| tree | b44ffde9dc3eceea91d832cf9a7ca12a219b85c1 | |
| parent | d6b423034c57cdaf2181216ad46afdc4cfbcbe10 (diff) | |
| download | smokeping-6daef9205280f61b5830c13836b849eb11462471.tar.gz smokeping-6daef9205280f61b5830c13836b849eb11462471.tar.xz | |
for retreive the network byteorder gets detected automagically
| -rw-r--r-- | lib/Smokeping/Slave.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Smokeping/Slave.pm b/lib/Smokeping/Slave.pm index b02511b..38dab1c 100644 --- a/lib/Smokeping/Slave.pm +++ b/lib/Smokeping/Slave.pm @@ -3,7 +3,7 @@ package Smokeping::Slave; use warnings; use strict; use Data::Dumper; -use Storable qw(nstore nretreive); +use Storable qw(nstore retreive); use Digest::MD5 qw(md5_ base64); use LWP::UserAgent; use Smokeping; @@ -63,7 +63,7 @@ sub submit_results { my $store = $slave_cfg->{cache_dir}."/data"; $store .= "_$myprobe" if $myprobe; $store .= ".cache"; - my $restore = nretrieve $store if -f $store; + my $restore = retrieve $store if -f $store; my $data = get_results($slave_cfg, $cfg, $probes, $cfg->{Targets}, $cfg->{General}{datadir}, $myprobe); push @$data, @$restore; my $data_dump = Dumper $data; |