Changes from 1.0.0-stable.
[openssl.git] / crypto / objects / objxref.pl
index 3fa5840..731d3ae 100644 (file)
@@ -54,10 +54,13 @@ my @srt2 = sort
 
        return $ap2 - $bp2;
        } @xrkeys;
-       
+
+my $pname = $0;
+
+$pname =~ s|^.[^/]/||;
 
 print <<EOF;
-/* AUTOGENERATED BY $0, DO NOT EDIT */
+/* AUTOGENERATED BY $pname, DO NOT EDIT */
 
 typedef struct
        {