Skip Menu |

Preferred bug tracker

Please visit the preferred bug tracker to report your issue.

This queue is for tickets about the Data-Printer CPAN distribution.

Report information
The Basics
Id: 68674
Status: resolved
Priority: 0/
Queue: Data-Printer
People
Owner: Nobody in particular
Requestors: DOHERTY [...] cpan.org
Cc:
AdminCc:
Bug Information
Severity: (no value)
Broken in: 0.17
Fixed in: 0.19

History Show all quoted text
  Mon Jun 06 22:46:45 2011 DOHERTY [...] cpan.org - Ticket created
Subject: t/20-handles.t fails on Solaris
$ prove -l t/20-handles.t t/20-handles.t .. 1/? # Failed test 'append flag' # at t/20-handles.t line 54. # '\ *main::$var (read/writelayers: unix perlio)' # doesn't match '(?-xism:flags: append)' # Looks like you failed 1 test of 6. t/20-handles.t .. Dubious, test returned 1 (wstat 256, 0x100) Failed 1/6 subtests
  Tue Jun 07 00:47:17 2011 garu [...] cpan.org - Correspondence added
On Mon Jun 06 22:46:45 2011, DOHERTY wrote: Show quoted text
> $ prove -l t/20-handles.t > t/20-handles.t .. 1/? > # Failed test 'append flag' > # at t/20-handles.t line 54. > # '\ *main::$var (read/writelayers: unix perlio)' > # doesn't match '(?-xism:flags: append)' > # Looks like you failed 1 test of 6. > t/20-handles.t .. Dubious, test returned 1 (wstat 256, 0x100) > Failed 1/6 subtests
Hi there! Thanks for trying out Data::Printer and thanks for the bug report :) hmm... it looks like Fcntl is having some issues in Solaris. I don't have access to a Solaris box, so could you please help me out with this? The output of: perl -Mstrict -Mwarnings -MFcntl -e 'my @flags = ( O_APPEND, O_ASYNC, O_CREAT, O_TRUNC, O_NONBLOCK ); print qq[@flags]' would be very helpful, specially since I think it will croak saying one of those isn't implemented, in which case I'd love to know that error message. If it passes, then this would also be extremely helpful: perl -Mstrict -Mwarnings -MFcntl -e 'sysopen my $fh, q[somefile.tmp], O_CREAT|O_APPEND or die $!; my $flags = fcntl($fh, F_GETFL, 0); print 42 . $/ if $flags & O_APPEND;' Finally, knowing your Filesystem would also be nice. I'm guessing ZFS, but it doesn't hurt being sure :) Also, your perl version (perl -v) and Fcntl version (perl -MFcntl -e 'print $Fcntl::VERSION') would be nice to know and might help solving this. Finally, checking if all the mentioned flags ( O_APPEND, O_ASYNC, O_CREAT, O_TRUNC, O_NONBLOCK ) are listed in "man 2 open" would also be of great help. Thanks again!
  Tue Jun 07 00:47:18 2011 The RT System itself - Status changed from 'new' to 'open'
  Tue Jun 07 06:22:35 2011 doherty [...] cs.dal.ca - Correspondence added
Subject: Re: [rt.cpan.org #68674] t/20-handles.t fails on Solaris
Date: Tue, 07 Jun 2011 07:22:26 -0300
To: bug-Data-Printer [...] rt.cpan.org
From: Mike Doherty <doherty [...] cs.dal.ca>
On 11-06-07 01:47 AM, Breno G. de Oliveira via RT wrote: Show quoted text
> perl -Mstrict -Mwarnings -MFcntl -e 'my @flags = ( O_APPEND, O_ASYNC, > O_CREAT, O_TRUNC, O_NONBLOCK ); print qq[@flags]'
$ perl -Mstrict -Mwarnings -MFcntl -e 'my @flags = ( O_APPEND, O_ASYNC,O_CREAT, O_TRUNC, O_NONBLOCK ); print qq[@flags]' Your vendor has not defined Fcntl macro O_ASYNC, used at -e line 1. Show quoted text
> perl -Mstrict -Mwarnings -MFcntl -e 'sysopen my $fh, q[somefile.tmp], > O_CREAT|O_APPEND or die $!; my $flags = fcntl($fh, F_GETFL, 0); print 42 > . $/ if $flags & O_APPEND;'
$ perl -Mstrict -Mwarnings -MFcntl -e 'sysopen my $fh, q[somefile.tmp], O_CREAT|O_APPEND or die $!; my $flags = fcntl($fh, F_GETFL, 0); print 42 . $/ if $flags & O_APPEND;' 42 Show quoted text
> Finally, knowing your Filesystem would also be nice. I'm guessing ZFS, > but it doesn't hurt being sure :)
I believe the filesystem is UFS. Show quoted text
> Also, your perl version (perl -v) and Fcntl version (perl -MFcntl -e > 'print $Fcntl::VERSION') would be nice to know and might help solving this.
$ perl -v ; perl -MFcntl -e 'print $Fcntl::VERSION, "\n"' This is perl 5, version 12, subversion 3 (v5.12.3) built for sun4-solaris ... $ perl -MFcntl -e 'print $Fcntl::VERSION, "\n"' 1.06 Show quoted text
> Finally, checking if all the mentioned flags ( O_APPEND, O_ASYNC, > O_CREAT, O_TRUNC, O_NONBLOCK ) are listed in "man 2 open" would also be > of great help.
Only O_ASYNC is not mentioned. -Mike
  Tue Jun 07 23:35:36 2011 garu [...] cpan.org - Correspondence added
On Tue Jun 07 06:22:35 2011, doherty@cs.dal.ca wrote: Show quoted text
> On 11-06-07 01:47 AM, Breno G. de Oliveira via RT wrote:
> > perl -Mstrict -Mwarnings -MFcntl -e 'my @flags = ( O_APPEND,
> O_ASYNC,
> > O_CREAT, O_TRUNC, O_NONBLOCK ); print qq[@flags]'
> > $ perl -Mstrict -Mwarnings -MFcntl -e 'my @flags = ( O_APPEND, > O_ASYNC,O_CREAT, O_TRUNC, O_NONBLOCK ); print qq[@flags]' > Your vendor has not defined Fcntl macro O_ASYNC, used at -e line 1. >
> > perl -Mstrict -Mwarnings -MFcntl -e 'sysopen my $fh,
> q[somefile.tmp],
> > O_CREAT|O_APPEND or die $!; my $flags = fcntl($fh, F_GETFL, 0);
> print 42
> > . $/ if $flags & O_APPEND;'
> > $ perl -Mstrict -Mwarnings -MFcntl -e 'sysopen my $fh, > q[somefile.tmp], > O_CREAT|O_APPEND or die $!; my $flags = fcntl($fh, F_GETFL, 0); print > 42 > . $/ if $flags & O_APPEND;' > 42 >
> > Finally, knowing your Filesystem would also be nice. I'm guessing
> ZFS,
> > but it doesn't hurt being sure :)
> > I believe the filesystem is UFS. >
> > Also, your perl version (perl -v) and Fcntl version (perl -MFcntl -e > > 'print $Fcntl::VERSION') would be nice to know and might help
> solving this. > > $ perl -v ; perl -MFcntl -e 'print $Fcntl::VERSION, "\n"' > > This is perl 5, version 12, subversion 3 (v5.12.3) built for sun4- > solaris > ... > $ perl -MFcntl -e 'print $Fcntl::VERSION, "\n"' > 1.06 >
> > Finally, checking if all the mentioned flags ( O_APPEND, O_ASYNC, > > O_CREAT, O_TRUNC, O_NONBLOCK ) are listed in "man 2 open" would also
> be
> > of great help.
> > Only O_ASYNC is not mentioned. > > -Mike
Thanks, that was of tremendous help! Version 0.19 should include a bugfix, please give it a try and let me know how it goes. If it's resolved we can close the ticket, but if it's still happening please paste the new test failure message so I can go back to the drawing board :) Thanks again! the problem still persists.
  Tue Jun 07 23:35:39 2011 garu [...] cpan.org - Status changed from 'open' to 'patched'
  Wed Jun 08 01:39:27 2011 garu [...] cpan.org - Correspondence added
On Tue Jun 07 23:35:36 2011, GARU wrote: Show quoted text
> Thanks, that was of tremendous help! > > Version 0.19 should include a bugfix, please give it a try and let me > know how it goes. > > If it's resolved we can close the ticket, but if it's still happening > please paste the new test failure message so I can go back to the > drawing board :) > > Thanks again!
That should have been the entire message, please disconsider where it says: Show quoted text
> the problem still persists.
It's just a leftover from your last message (sorry) ^^^ But please let me know if it's solved or if I suddenly developed psychic powers ;)
  Wed Jun 08 01:39:28 2011 The RT System itself - Status changed from 'patched' to 'open'
  Wed Jun 08 17:48:02 2011 doherty [...] cs.dal.ca - Correspondence added
Subject: Re: [rt.cpan.org #68674] t/20-handles.t fails on Solaris
Date: Wed, 08 Jun 2011 18:48:06 -0300
To: bug-Data-Printer [...] rt.cpan.org
From: Mike Doherty <doherty [...] cs.dal.ca>
On 11-06-08 12:35 AM, Breno G. de Oliveira via RT wrote: Show quoted text
> Version 0.19 should include a bugfix, please give it a try and let me > know how it goes.
Fixed. Thanks!
  Wed Jun 08 19:23:05 2011 garu [...] cpan.org - Status changed from 'open' to 'resolved'
  Wed Jun 08 19:23:42 2011 garu [...] cpan.org - Fixed in 0.19 added