X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fconvert_users.pl;h=dbf9fb0381dcaa07553035cff080dbe530938cf1;hb=2eb1a3cb90360108a9f561d23f989792cc98dde5;hp=bb39213145fbd66ae1eeff8890ed125546cb417f;hpb=1728c7c7a64eaf2852c490629f022c7e70bc46e2;p=spider.git

diff --git a/perl/convert_users.pl b/perl/convert_users.pl
index bb392131..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,8 +50,8 @@ package DXUser;
 @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++;
 }