format bug in vmsperl

G

Guest

Greetings all,

I need some help with format under vmsperl.
Please look at the following sample perl program::

#!/usr/bin/perl

my $str = "First line" . chr(13) .
"Second line should wrap at thirty chars" . chr(13) .
"Next line". chr(13) .
"Last line". chr(13);

format STDOUT =
^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<~~
$str
..

write;

On Activestate perl v5.8.7 (running on Windows XP) I get the expected
outputt:
First line
Second line should wrap at
thirty characters
Next line
Last line

But on VMS perl v5.6.1, it gives me insufficient output:
First line
Second line should wrap at
thirty characters
Next line

The VMS platform is OpenVMS v7.3-2 on an Alphaserver DS10.

Can somebody please try it and confirm the bug.
Maybe even provide a work around or fix to this?

Thanks in advance,

Juna
 
C

Craig A. Berry

Greetings all,

I need some help with format under vmsperl.
Please look at the following sample perl program::

#!/usr/bin/perl

my $str = "First line" . chr(13) .
"Second line should wrap at thirty chars" . chr(13) .
"Next line". chr(13) .
"Last line". chr(13);

format STDOUT =
^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<~~
$str
.

write;

On Activestate perl v5.8.7 (running on Windows XP) I get the expected
outputt:
First line
Second line should wrap at
thirty characters
Next line
Last line

But on VMS perl v5.6.1, it gives me insufficient output:
First line
Second line should wrap at
thirty characters
Next line

The VMS platform is OpenVMS v7.3-2 on an Alphaserver DS10.

Can somebody please try it and confirm the bug.
Maybe even provide a work around or fix to this?

I can reproduce it with Perl 5.6.2 on OpenVMS Alpha v8.2, but not with
any version of Perl 5.8.x that I have handy. 5.8.0 came out about
three and a half years ago, so you are overdue for an upgrade. 5.8.7
is current, and there is an HP-supported binary kit of 5.8.6 at:

http://h71000.www7.hp.com/openvms/products/ips/apache/csws_modperl.html
 
J

John Santos

Alex said:
It does not replicate for me, with the latest version of VMS and Perl.

$ write sys$output f$gets("version")
V8.2
$ prod show hist *perl*/vers=5.8-6
----------------------------------- ----------- ----------- --------------------
PRODUCT KIT TYPE OPERATION DATE AND TIME
----------------------------------- ----------- ----------- --------------------
CPQ AXPVMS PERL V5.8-6 Full LP Install 20-NOV-2005
04:32:38
----------------------------------- ----------- ----------- --------------------

1 item found
$ perl a.pl
First line
Second line should wrap at
thirty chars
Next line
Last line
$

I suggest you upgrade, at least your version of Perl, although with V7.3-2
going into PVS in around 6 months I'd be looking to upgrade that too.

Alex

V7.3-2/Perl V5.6-1

I'm also missing the last line. So it's not just something weird
about the OP's system.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Members online

No members online now.

Forum statistics

Threads
473,744
Messages
2,569,482
Members
44,901
Latest member
Noble71S45

Latest Threads

Top