Thomas R Wyant_III <[EMAIL PROTECTED]> wrote on 02/22/2005 03:34:59 PM:
> I was trying to get VMS::Stat going under VMS 7.1-1. Unfortunately, that
> version doesn't have fab$v_erl (a.k.a. the "erase" bit). I was going to
> develop a patch, but I'm having trouble establishing which version
> introduced this attribute. Can anyone help?
I am sorry to say that I cannot help much here other than to point
out the examination of your fabdef.h header could help out, then pehaps
introducing some sensitivity to macros like:
VMS_VERSION __VMS_VERSION
> PS: With the fab$v_erl value forced false, it passes all tests except
for
> test 5 in 2.t:
>
> $ perl "-Mblib" t/2.t
> 1..21
> ok 1
> ok 2
> ok 3
> ok 4
> not ok 5 # %RMS-F-SYN, file specification syntax error after
> get_fab(SYS$DISK:[]
>
silly.name.that.is.not.ods-2.legal.$$.and.has.no.carets.hence.not-0ds-5.either)
>
> call
Sorry, that _apparent_ test failure is actually a test pass and
the mess is my fault for being too restrictive in acceptance of
"bad" messages from the system message catalog.
A patch of this sort should fix things up for you:
--- t/2.t;1 Wed Feb 23 19:55:17 2005
+++ t/2.t Wed Feb 23 19:59:50 2005
@@ -56,7 +56,13 @@
my %non_fab = VMS::Stat::get_fab( $non_existant_filespec );
print + ( ! defined( $non_fab{'alq'} ) ) ? "ok $t\n" : "not ok $t # basic
get_fab($non_existant_filespec) call\n";
++$t;
-print + ( $^E eq '%RMS-E-ACC, ACP file access failed' ) ? "ok $t\n" : "not ok
$t # $^E after get_fab($non_existant_filespec) call\n";
+# The ACC message IDENT was seen on VMS 7.3-2
+# The SYN message IDENT was reported on 7.1-1
+# The regular expression could match either and is admittedly redundant, but
+# should catch any others
+print + ( $^E eq '%RMS-E-ACC, ACP file access failed' ||
+ $^E eq '%RMS-F-SYN, file specification syntax error' ||
+ $^E =~ m/^\%RMS\-[WEF]\-\w+, / ) ? "ok $t\n" : "not ok $t # $^E
after get_fab($non_existant_filespec) call\n";
# Comparisons to f$file_attributes() DCL results:
Please let me know what you want to do about fab$v_erl and
I'll fold it and the test fix into a 0.04 release. Thanks.
Peter Prymmer
Since my mailer breaks lines in odd places I also
enclosed the above diff as an attachment:
(See attached file: 2.patch)
2.patch
Description: Binary data
