Merge branch 'mojo' of /scm/spider into mojo

[spider.git] / perl / convert_users.pl

diff --git a/perl/convert_users.pl b/perl/convert_users.pl
index 4aa3978b19d03dfed622a5cab7287c13bc717332..dbf9fb0381dcaa07553035cff080dbe530938cf1 100755 (executable)
--- a/perl/convert_users.pl
+++ b/perl/convert_users.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl
 #
 # Export the user file in a form that can be directly imported
 # back with a do statement
@@ -50,7 +50,7 @@ package DXUser;
 @all = DXUser::get_all_calls();
 
 for $a (@all) {
-       my $ref = DXUser->get($a);
+       my $ref = DXUser::get($a);
        my $s = $ref->encode() if $ref;
        print OUT "'$a' => q{$s},\n" if $a;
        $count++;