"Craig A. Berry" <[EMAIL PROTECTED]> wrote on 12/06/2003 04:35:12 PM: > At 2:12 PM -0500 12/6/03, Henderson, Jordan (Contractor) (DAASC) wrote: > > >If a f$search-like capability is desired, then a VMS:: module > should probably be > >instituted that includes this capability. > > Such as Forrest Cahoon's VMS::FindFile extension? I don't think it's > on CPAN, but check the list archives. Thanks for mentioning that extension. I did find one on CPAN in: http://search.cpan.org/~forrest/VMS-FindFile-0.91/ I found that with an installed perl 5.8.1 I failed one or more tests. One problem was due to me having a DIR symbol (my bad), but one other seems to be a problem in the test script itself. Can anyone else confirm my results? Can anyone else confirm that this fix is appropriate? Thanks. --- t/1.t;1 Sun Oct 27 01:41:13 2002 +++ t/1.t Tue Dec 16 10:42:08 2003 @@ -6,7 +6,7 @@ # change 'tests => 1' to 'tests => last_test_to_print'; use Test; -BEGIN { plan tests => 4 }; +BEGIN { plan tests => 5 }; use VMS::FindFile; ok(1); # If we made it this far, we're ok. @@ -21,7 +21,7 @@ "Couldn't create VMS::FindFile object\n"; ok(1); # created new FindFile object OK -open IN, "dir/nohe/notr []*.*; |" || die "Couldn't open pipe\n"; +open IN, "directory/nohead/notrail/nodate/nosize []*.*; |" || die "Couldn't open pipe\n"; $compare_ok = 1; @@ -35,5 +35,7 @@ } } ok($compare_ok); -ok($ff_fname eq ""); +ok($ff_fname ne ""); close IN; +$ff_fname = $ff->search(); +ok($ff_fname eq ""); End of Patch. (See attached file: vms_findfile_0_91.patch) I'd make more of an exlicit attempt to contact Forrest, but from a glance at some of his web pages it appears that he got married, moved to Georgia, and stopped writing perl stuff for VMS (I hope I am wrong about that latter assumption and that he still monitors this list). Peter Prymmer
vms_findfile_0_91.patch
Description: Binary data
