X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fconvert_users.pl;h=dbf9fb0381dcaa07553035cff080dbe530938cf1;hb=4b49fe47b37249d748f0a52fe2a778d4bc27232f;hp=4aa3978b19d03dfed622a5cab7287c13bc717332;hpb=6aca4e461103870de99b0ce452f21cf7fedeb54b;p=spider.git

diff --git a/perl/convert_users.pl b/perl/convert_users.pl
index 4aa3978b..dbf9fb03 100755
--- 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++;