New issue
Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.
By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.
Already on GitHub? Sign in to your account
Accessing remote file on OpenVMS with perl 5.6.1 fails #4551
Comments
From Doug.Woronuk@megasys.comPlatform : Compaq Alpha $ PERL -v This is perl, v5.6.1 built for VMS_AXP Copyright 1987-2001, Larry Wall Perl may be copied only under the terms of either the Artistic License or Complete documentation for Perl, including FAQ lists, should be found on The following perl script attempts to create a file on a remote node. open (FH,'>MLB1::A.A') or die "Failed to open file\n"; The output is as follows: $ perl a.pl The remote file (MLB1::A.A) was in fact created, however it contains If this is in fact a bug, I can allow someone to connect into our system for I would appreciate any kind of feed back to let me know that this was in Regards, Doug Woronuk Doug.Woronuk@megasys.com <mailto:Doug.Woronuk@megasys.com> |
From @craigberryDoug, I suggest reposting this to vmsperl@perl.org. I frankly didn't think "... getting out of a sonnet is much more |
From [Unknown Contact. See original ticket]This has always worked for me. I suspect some sort of DECNET configuration problem. Perl and DECNET Brad |
From @HugmeirOn Tue Nov 06 08:30:19 2001, RT_System wrote:
Can this ticket be closed then? |
From @craigberryOn Sat, May 5, 2012 at 9:09 AM, Brian Fraser via RT
I think so. During additional discussion on the vmsperl mailing list: http://www.nntp.perl.org/group/perl.vmsperl/2001/11/msg9575.html the OP did not respond to queries, and others with comparable platform http://perl5.git.perl.org/perl.git/blob/v5.15.9:/vms/vms.c#l11735 |
@cpansprout - Status changed from 'open' to 'resolved' |
From Doug.Woronuk@megasys.comHello Brad and others; We are now using Perl 5.8.6 and the same problem exists. Here's my specifics: On OpenVMS MEG2:: open(FH,'>ITN3::A.A') or die "Failed to open file\n"; Fatal VMS error (status=2312) at P_ROOT:[000000]VMS.C;2, line 6706 at a.pl line 1. Changed script to use DECnet to itself: open(FH,'>MEG2::A.A') or die "Failed to open file\n"; Works successfully. Moved script to ITN3:: open(FH,'>MEG2::A.A') or die "Failed to open file\n"; Fatal VMS error (status=2312) at P_ROOT:[000000]VMS.C;2, line 6706 at a.pl line 1. Changed script to use DECnet to itself: open(FH,'>ITN3::A.A') or die "Failed to open file\n"; Works successfully. So it seems predictable that it will fail when it tries to connect to a remote server via DECnet, but works fine when connecting over DECnet to itself. There is a noticeable delay when the script is trying to open a file on its own server over DECnet, so it does seem that it is in fact connecting over DECnet instead of being smart and skipping the DECnet connection when it sees that the local server and the remote server are the same. I'm not overly concerned about this issue. I initially opened this ticket coming up to 11 years ago and we have always worked around this issue. Now we're moving off OpenVMS to Linux, so it will definitely be a non-issue there. However, if you want to pursue it, I'd be happy to do what I can here on my OpenVMS servers. Regards, Doug Woronuk Doug.Woronuk@megasys.com -----Original Message----- According to our records, your request regarding If you have any further questions or concerns, please respond to this message. For other topics, please create a new ticket. <URL: https://rt-archive.perl.org/perl5/Ticket/Display.html?id=7873 > |
From @craigberryOn Mon, May 7, 2012 at 5:15 PM, Doug Woronuk <doug.woronuk@megasys.com> wrote:
Thanks for the reply, Doug. Have you confirmed this works outside of $ open/write remote itn3::a.a ? If it's only reproducible with Perl, then it would need to be verified |
From malmberg@Encompasserve.orgOn 5/8/2012 10:07 PM, Craig A. Berry wrote:
I can not reproduce this problem with the HP supplied Perl 5.8.6 or with In general, if the xxx::a.a syntax works on node xxx, and does not work EAGLE> perl decnet_test.pl Directory LION::USER_ROOT:[MALMBERG] A.A;2 Regards, |
Migrated from rt.perl.org#7873 (status was 'resolved')
Searchable as RT7873$
The text was updated successfully, but these errors were encountered: