Craig A. Berry <[EMAIL PROTECTED]> wrote:
If the only reason you want all the versions is to make sure you delete them all, then these will do nicely. If you want all the versions for some other reason, we don't currently provide a way to get at them. There is latent support for an attribute of the
I don't have access to a VMS box any longer (sigh) but IIRC the VMS glob expansion code was version-aware: if you passed a version on the input filespec, it would return it on the output spec, and it accepted version wildcards. If it hasn't been overwritten by the File::Glob evangelists, that's the entrez from Perl.
directory handle returned by our readdir() implementation that allows you to choose whether or not you want all versions of a file, but there are currently no hooks for getting at this from Perl. Look for vmsreaddirversions() and collectversions in [.vms]vms.c in the Perl sources. I believe these were included in a readdir implementation that was simply brought wholesale into Perl but the version functions were never made visible.
Pretty much the case. There was really no way via Perl's readdir() interface to pass this information, and we never quite got 'round to
adding a switch to VMS::Stdio.
It's not immediately obvious to me what the best interface would be if we want to expose this capability. We could propose adding a function to Perl or perhaps put it in a new or existing XS namespace. Wherever it goes, I'm not fond of vmsreaddirversions; perhaps readdir_all_versions.
Just as food for thought, how about one of:
- VMS::Stdio::opendir which takes an extra param - C<use vmsish 'readdir'> which sets the wantversions default to 1
Glad to see the list is still alive! -- Regards, Charles Bailey < bailey _at_ newman _dot_ upenn _dot_ edu > Newman Center at the University of Pennsylvania
