diff options
| author | Peter Palfrader <peter@palfrader.org> | 2002-07-02 17:36:20 +0000 |
|---|---|---|
| committer | Peter Palfrader <peter@palfrader.org> | 2002-07-02 17:36:20 +0000 |
| commit | 6319ed28454066f9530ab9c758ce85faedb6d6f9 (patch) | |
| tree | 9673d6d026bcd1e96538e7244308aab85d18d21f | |
| parent | c76c2795ec98b57867901525c17afb39e452b8a1 (diff) | |
Include fetch in get_addresses
| -rw-r--r-- | Echolot/Storage/File.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Echolot/Storage/File.pm b/Echolot/Storage/File.pm index 5498255..8e03bb1 100644 --- a/Echolot/Storage/File.pm +++ b/Echolot/Storage/File.pm @@ -1,7 +1,7 @@ package Echolot::Storage::File; # (c) 2002 Peter Palfrader <peter@palfrader.org> -# $Id: File.pm,v 1.16 2002/07/02 17:03:42 weasel Exp $ +# $Id: File.pm,v 1.17 2002/07/02 17:36:20 weasel Exp $ # =pod @@ -509,6 +509,7 @@ sub get_addresses($) { $tmp{'status'} = $self->{'METADATA'}->{'addresses'}->{$_}->{'status'}; $tmp{'id'} = $self->{'METADATA'}->{'addresses'}->{$_}->{'id'}; $tmp{'address'} = $_; + $tmp{'fetch'} = $self->{'METADATA'}->{'addresses'}->{$_}->{'fetch'}; \%tmp; } @addresses; return @return_data; |