pre 1.13 release

[spider.git] / perl / DXUtil.pm

diff --git a/perl/DXUtil.pm b/perl/DXUtil.pm
index 81bace8ca1271ebc45021e3175cb80edc940592a..5c6c51af3a5a556100a6a62c4c6293d7cfcde68a 100644 (file)
--- a/perl/DXUtil.pm
+++ b/perl/DXUtil.pm
@@ -148,11 +148,9 @@ sub print_all_fields
 {
        my $self = shift;                       # is a dxchan
        my $ref = shift;                        # is a thingy with field_prompt and fields methods defined
-       my @out = @_;
- 
+       my @out;
        my @fields = $ref->fields;
        my $field;
-       my @out;
 
        foreach $field (sort @fields) {
                if (defined $ref->{$field}) {