| Subject: | Followtail.pm on VMS not working. |
VMS VMS 7.2-1
perl -v
This is perl, v5.8.0 built for VMS_AXP
#!/usr/bin/perl
# $Id$
use warnings;
use strict;
use POE;
use POE::Wheel::FollowTail;
my $device = "dka100";
my $dir = "[rsa.agent.bin]";
my $file = "check-logs.txt";
my $msg_file = File::Spec::VMS->catpath( $device, $dir, $file );
my %logs_to_watch =
( msg => $msg_file );
print %logs_to_watch;
POE::Session->create
( inline_states =>
{ _start => \&begin_watchers,
msg_record => \&msg_got_record,
# Handle log resets and errors the same way for each file.
log_reset => \&generic_log_reset,
log_error => \&generic_log_error,
}
);
-snip-
Error message is:
kite_hab15$ perl simple_log.pl
msgdka100:[rsa.agent.bin]check-logs.txthandle= GLOB(0x814c2c)
filename= dka100:[rsa.agent.bin]check-logs.txt
fcntl(GLOB(0x814c2c), F_GETFL, etc.) fails: invalid argument
at /perl_root/lib/site_perl/POE/Wheel/FollowTail.pm line 136
POE::Kernel's run() method was never called.
%SYSTEM-F-ABORT, abort