-#!/usr/bin/perl
+#!/usr/bin/env perl
#
# Export the user file in a form that can be directly imported
# back with a do statement
@all = DXUser::get_all_calls();
for $a (@all) {
- my $ref = DXUser->get($a);
- my $s = $ref->encode();
+ my $ref = DXUser::get($a);
+ my $s = $ref->encode() if $ref;
print OUT "'$a' => q{$s},\n" if $a;
$count++;
}