Some updates to VMS::User

[Peter Prymmer]

Greetings,

I had a need recently for a way to look at som UAF items
in a manner that did not paw through the output of authorize.
I downloeaded Dan Sugalski's  VMS::User 0.01
and found that I had to make a simple switch to some
perl macros to get it to compile under perl 5.8.7.

My diff is:

--- vms-user-0_01/user.xs       Wed Oct 17 11:15:53 2007
+++ vms-user-0_02/user.xs       Wed Oct 17 11:11:27 2007
@@ -539,7 +539,7 @@
         } else {
           hv_store(AllPurposeHV, OurDataList[i].ItemName,
                    strlen(OurDataList[i].ItemName),
-                   &sv_undef, 0);
+                   &PL_sv_undef, 0);
         }
         break;
       case IS_COUNTSTRING:
@@ -554,7 +554,7 @@
         } else {
           hv_store(AllPurposeHV, OurDataList[i].ItemName,
                    strlen(OurDataList[i].ItemName),
-                   &sv_undef, 0);
+                   &PL_sv_undef, 0);
         }
         break;
       case IS_VMSDATE:
@@ -627,7 +627,7 @@
     if (SS$_ACCVIO == status)
       printf("ACCVIO\n");
     SETERRNO(EVMSERR, status);
-    ReturnedSV = &sv_undef;
+    ReturnedSV = &PL_sv_undef;
   }
End

I think Dan lost access to VMS a while ago.

Dan: do you have any interest in releasing an updated version of
VMS::User nowadays?  If not would you mind if I did?  Thanks.

Peter Prymmer