Does anyone have the "Storable" module
working on their 5.6.0 VMS/Alpha Perl?
ie,
http://search.cpan.org/search?dist=Storable
I'm getting a %SYSTEM-F-NOLOGNAM,
coming back on a store_fd().
the file gets created, but w/ the
string "pst0" only.
I'm wondering if this is TS/LC_TZ
posix time-date related.
also oddly, a $SET WATCH, shows
a small number of reads on the
sysuaf, and rights-list before the
error.
Does this ring any bells by anyone?
Simple example:
$ type tst.pl
use VMS::Stdio qw( &vmsopen );
use Storable qw( &store_fd );
%hash = (
'Blue' => 0.1
,'Red' => 0.8,
,'Black' => 0
,'White' => 1 );
# $fh = vmsopen(
# "> TMP.BIN"
# ,"ctx=bin"
# ,"rfm=udf"
# ,"rat=none"
# ,"mrs=32767" ) || die vmsopen(), $!;
# sysopen( $fh, "FOO.BAR", 1, O666 ) || die "sysopen(), $!";
# sysopen( $fh, "FOO.BAR", 2, O666 ) || die "sysopen(), $!";
open( $fh, "> FOO.BAR" ) || die "open(), $!";
store_fd( \%hash, $fh ) || die "store_fd(), $!";
close( $fh );
$ perl TST.pl
store_fd(), at tst.pl line 21.
%SYSTEM-F-NOLOGNAM, no logical name match
$ dump/byte foo.bar
Dump of file LOGDISK:[PROD.LOG]FOO.BAR;1 on 4-APR-2001 20:55:49.40
File ID (11366,14,0) End of file block 1 / Allocated 3
Virtual block number 1 (00000001), 512 (0200) bytes
00 00 00 00 00 00 00 00 00 00 00 00 30 74 73 70 pst0............ 000000
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000010
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000020
...etc...
