[32436] in Perl-Users-Digest
Perl-Users Digest, Issue: 3703 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue May 29 21:09:27 2012
Date: Tue, 29 May 2012 18:09:09 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Tue, 29 May 2012 Volume: 11 Number: 3703
Today's topics:
Re: coding question <nospam.gravitalsun.antispam@hotmail.com.nospam>
Re: coding question rvaedex23@gmail.com
Re: coding question <nospam.gravitalsun.antispam@hotmail.com.nospam>
Re: Help with install from CPAN <ben@morrow.me.uk>
Re: Help with install from CPAN <dave@invalid.invalid>
Re: Help with install from CPAN <dave@invalid.invalid>
Re: Help with install from CPAN <ben@morrow.me.uk>
Re: Help with install from CPAN <dave@invalid.invalid>
Re: Help with install from CPAN <ben@morrow.me.uk>
Re: Help with install from CPAN <dave@invalid.invalid>
Re: Help with install from CPAN <ben@morrow.me.uk>
Quick and dirty article filter <apeiron@pobox.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 28 May 2012 23:43:45 +0300
From: "George Mpouras" <nospam.gravitalsun.antispam@hotmail.com.nospam>
Subject: Re: coding question
Message-Id: <jq0o22$24lq$1@news.ntua.gr>
my $Parser = qr|^(..)(....)(...)(.*?)\s*$|;
while(<DATA>) {
@{$_} = $_ =~$Parser or next;
print join(',', @{$_}),"\n"
}
__DATA__
aaBBBB123qwert
bbCCCC456gerte
ccDDDD789wwdfe
------------------------------
Date: Tue, 29 May 2012 06:25:57 -0700 (PDT)
From: rvaedex23@gmail.com
Subject: Re: coding question
Message-Id: <c1d3f454-3db2-4bb0-b9fc-1bff165f8682@googlegroups.com>
On Friday, May 25, 2012 4:08:18 PM UTC-4, rvae...@gmail.com wrote:
> I am not very familiar with perl. Although, I do have shell scripting experience.
> I thought this would be easier to do this in perl.
>
> I have a file that doesn't have a field delimiter between the columns and I want to add a colon between each column. I can identify the columns by hard coding the range:
> such as "col1 to col 10" "col11 to col24" etc...
>
> I am stuck. Any advise would help. Thanks.
One more question:
I found out that I have to check two bytes in the file and
if the byte = 14
then
I need to attach the colon after the field 16, 20, 36, 58
if the bye = 15
then
I need to attach the colon after the field 24, 37, 70, 88
etc.....
------------------------------
Date: Wed, 30 May 2012 00:39:00 +0300
From: "George Mpouras" <nospam.gravitalsun.antispam@hotmail.com.nospam>
Subject: Re: coding question
Message-Id: <jq3fls$k9s$1@news.ntua.gr>
what is the question ?
Ο έγραψε στο μήνυμα
news:c1d3f454-3db2-4bb0-b9fc-1bff165f8682@googlegroups.com...
On Friday, May 25, 2012 4:08:18 PM UTC-4, rvae...@gmail.com wrote:
> I am not very familiar with perl. Although, I do have shell scripting
> experience.
> I thought this would be easier to do this in perl.
>
> I have a file that doesn't have a field delimiter between the columns and
> I want to add a colon between each column. I can identify the columns by
> hard coding the range:
> such as "col1 to col 10" "col11 to col24" etc...
>
> I am stuck. Any advise would help. Thanks.
One more question:
I found out that I have to check two bytes in the file and
if the byte = 14
then
I need to attach the colon after the field 16, 20, 36, 58
if the bye = 15
then
I need to attach the colon after the field 24, 37, 70, 88
etc.....
------------------------------
Date: Mon, 28 May 2012 23:24:44 +0100
From: Ben Morrow <ben@morrow.me.uk>
Subject: Re: Help with install from CPAN
Message-Id: <ciad99-d7h.ln1@anubis.morrow.me.uk>
Quoth "Dave Saville" <dave@invalid.invalid>:
> On Sat, 26 May 2012 21:38:57 UTC, Ben Morrow <ben@morrow.me.uk> wrote:
>
> > Here's a rather crude hack you could try: put the following in
> > TAP/Harness/UseQx.pm somewhere in your @INC:
> <snip>
>
> Running make test
> U:/PERL5/BIN/PERL.EXE "-MExtUtils::Command::MM" "-e" "test_harness(0,
> 'blib/lib'
> , 'blib/arch')" t/*.t
> UseQx: loaded
> UseQx: running [perl -w t/basic.t]
Sorry, I should have noticed this when I was trying it; I was running
the tests for a module I already had installed, and I think I must have
ended up running the tests against the installed version.
Try this instead:
package TAP::Harness::UseQx;
use warnings;
use strict;
require TAP::Harness;
our @ISA = "TAP::Harness";
warn "UseQx: loaded\n";
sub _get_parser_args {
my ($self, $job) = @_;
my $test = $job->filename;
my @switches;
push @switches, $self->lib if $self->lib;
push @switches, $self->switches if $self->switches;
my $args = {
source => $test,
switches => \@switches,
};
$self->_make_callback( 'parser_args', $args, $job->as_array_ref );
my $cmd = join " ", "perl", @{$args->{switches}}, $test;
warn "UseQx: running [$cmd]\n";
my $tap = qx/$cmd/;
return { tap => $tap };
}
1;
Ben
------------------------------
Date: Tue, 29 May 2012 12:56:58 +0000 (UTC)
From: "Dave Saville" <dave@invalid.invalid>
Subject: Re: Help with install from CPAN
Message-Id: <fV45K0OBJxbE-pn2-5h48v7g4HjX1@localhost>
No prblem Ben - I appreciate all you help.
This version makes one hell of a difference - this time Module::Build
(I had installed Try::Tiny as it passed all test using my tester):
=======================
Terminal does not support AddHistory.
cpan shell -- CPAN exploration and modules installation (v1.960001)
Enter 'h' for help.
Going to read 't:/CPAN/Metadata'
Database was generated on Sun, 27 May 2012 16:58:03 GMT
Fetching with HTTP::Tiny:
http://www.perl.org/CPAN/authors/01mailrc.txt.gz
Going to read 't:/CPAN/sources/authors/01mailrc.txt.gz'
.......................................................................
....DONE
Fetching with HTTP::Tiny:
http://www.perl.org/CPAN/modules/02packages.details.txt.gz
Going to read 't:/CPAN/sources/modules/02packages.details.txt.gz'
Database was generated on Tue, 29 May 2012 12:07:03 GMT
HTTP::Date not available
..............
New CPAN.pm version (v1.9800) available.
[Currently running version is v1.960001]
You might want to try
install CPAN
reload cpan
to both upgrade CPAN.pm and run the new version without leaving
the current session.
..............................................................DONE
Fetching with HTTP::Tiny:
http://www.perl.org/CPAN/modules/03modlist.data.gz
Going to read 't:/CPAN/sources/modules/03modlist.data.gz'
.......................................................................
....DONE
Going to write t:/CPAN/Metadata
Running install for module 'Module::Build'
Running make for L/LE/LEONT/Module-Build-0.40.tar.gz
Checksum for
t:/CPAN/sources/authors/id/L/LE/LEONT/Module-Build-0.40.tar.gz ok
Scanning cache t:/CPAN/build for sizes
.......................................................................
....DONE
DEL(1/3): t:/CPAN/build/tmp-4213
DEL(2/3): t:/CPAN/build/tmp-4248
DEL(3/3): t:/CPAN/build/tmp-4286
CPAN.pm: Going to build L/LE/LEONT/Module-Build-0.40.tar.gz
Created MYMETA.yml and MYMETA.json
Creating new 'Build' script for 'Module-Build' version '0.40'
Building Module-Build
LEONT/Module-Build-0.40.tar.gz
./Build -- OK
'YAML' not installed, will not store persistent state
Running Build test
t/00-compile.t ................. ok
t/PL_files.t ................... ok
t/actions/installdeps.t ........ ok
t/actions/manifest_skip.t ...... ok
t/add_property.t ............... ok
t/basic.t ...................... ok
t/bundle_inc.t ................. skipped: $ENV{MB_TEST_EXPERIMENTAL}
is not set
t/compat.t ..................... ok
t/compat/exit.t ................ ok
t/debug.t ...................... ok
t/destinations.t ............... ok
t/ext.t ........................ ok
t/extend.t ..................... ok
t/files.t ...................... ok
t/help.t ....................... ok
t/install.t .................... ok
t/install_extra_target.t ....... ok
t/manifypods.t ................. ok
t/metadata.t ................... ok
t/metadata2.t .................. ok
t/mymeta.t ..................... ok
t/new_from_context.t ........... ok
t/notes.t ...................... ok
t/par.t ........................ skipped: No compiler found
t/parents.t .................... ok
t/perl_mb_opt.t ................ ok
t/pod_parser.t ................. ok
t/ppm.t ........................ skipped: No compiler found
t/properties/dist_suffix.t ..... ok
t/properties/license.t ......... ok
t/properties/module_name.t ..... ok
t/properties/needs_compiler.t .. ok
t/properties/release_status.t .. ok
t/properties/requires.t ........ ok
t/properties/share_dir.t ....... ok
t/resume.t ..................... ok
t/runthrough.t ................. ok
t/sample.t ..................... ok
t/script_dist.t ................ ok
t/signature.t .................. ok
t/test_file_exts.t ............. ok
t/test_type.t .................. ok
t/test_types.t ................. ok
t/tilde.t ...................... ok
t/use_tap_harness.t ............
Failed 3/9 subtests
t/versions.t ................... ok
t/write_default_maniskip.t ..... ok
t/xs.t ......................... skipped: No compiler found
Test Summary Report
-------------------
t/use_tap_harness.t (Wstat: 0 Tests: 9 Failed: 3)
Failed tests: 2-3, 6
Files=48, Tests=1121, 685 wallclock secs (684.25 usr + 0.00 sys =
684.25 CPU)
Result: FAIL
LEONT/Module-Build-0.40.tar.gz
./Build test -- NOT OK
//hint// to see the cpan-testers results for installing this module,
try:
reports LEONT/Module-Build-0.40.tar.gz
Running Build install
make test had returned bad status, won't install without force
Failed during this command:
LEONT/Module-Build-0.40.tar.gz : make_test NO
Try::Tiny is up to date (0.11).
Terminal does not support GetHistory.
Lockfile removed.
======================================
That was the result of perl -MCPAN -eshell | tee log
But the shell window is a bit different. Soory the top is missing but
standard OS2 shell does not scroll :-(
# NON-ZERO WAIT STATUS: 248
# PARSE ERRORS: NO PLAN FOUND IN TAP OUTPUT
# FILES=1, TESTS=0, 0 WALLCLOCK SECS ( 0.58 USR + 0.00 SYS = 0.58
CPU)
# RESULT: FAIL
# '
# doesn't match '(?^m:^OK 1)'
# Failed test 'Should see test success message'
# at t/use_tap_harness.t line 41.
# 'COPYING LIB/SIMPLE.PM -> BLIB/LIB/SIMPLE.PM
# T/BASIC.T ..
# NO SUBTESTS RUN
#
# TEST SUMMARY REPORT
# -------------------
# T/BASIC.T (WSTAT: 248 TESTS: 0 FAILED: 0)
# NON-ZERO WAIT STATUS: 248
# PARSE ERRORS: NO PLAN FOUND IN TAP OUTPUT
# FILES=1, TESTS=0, 0 WALLCLOCK SECS ( 0.58 USR + 0.00 SYS = 0.58
CPU)
# RESULT: FAIL
# '
# doesn't match '(?^m:^ALL TESTS SUCCESSFUL)'
# Failed test 'Should see test success message'
# at t/use_tap_harness.t line 64.
# ''
# doesn't match '(?^m:^ALL TESTS SUCCESSFUL)'
# Looks like you failed 3 tests of 9.
UseQx: running [perl -w
-IT:/CPAN/build/Module-Build-0.40-bYRAte/blib/lib -IT:/C
PAN/build/Module-Build-0.40-bYRAte/blib/arch -It/lib -It/bundled -Ilib
t/version
s.t]
t/use_tap_harness.t ............
Failed 3/9 subtests
UseQx: running [perl -w
-IT:/CPAN/build/Module-Build-0.40-bYRAte/blib/lib -IT:/C
PAN/build/Module-Build-0.40-bYRAte/blib/arch -It/lib -It/bundled -Ilib
t/write_d
efault_maniskip.t]
t/versions.t ................... ok
UseQx: running [perl -w
-IT:/CPAN/build/Module-Build-0.40-bYRAte/blib/lib -IT:/C
PAN/build/Module-Build-0.40-bYRAte/blib/arch -It/lib -It/bundled -Ilib
t/xs.t]
t/write_default_maniskip.t ..... ok
Failed 1/48 test programs. 3/1121 subtests failed.
t/xs.t ......................... skipped: No compiler found
Test Summary Report
-------------------
t/use_tap_harness.t (Wstat: 0 Tests: 9 Failed: 3)
Failed tests: 2-3, 6
Files=48, Tests=1121, 685 wallclock secs (684.25 usr + 0.00 sys =
684.25 CPU)
Result: FAIL
Any idea why I am getting the "no compiler found" message?
Config_Heavy seems to know there is one.
At least we now seem to be getting somewhere.
--
Regards
Dave Saville
------------------------------
Date: Tue, 29 May 2012 13:15:38 +0000 (UTC)
From: "Dave Saville" <dave@invalid.invalid>
Subject: Re: Help with install from CPAN
Message-Id: <fV45K0OBJxbE-pn2-mjwbPNRegzSp@localhost>
And another thing :-)
CPAN.pm: Going to build Z/ZE/ZEFRAM/Module-Runtime-0.013.tar.gz
Created MYMETA.yml and MYMETA.json
Creating new 'Build' script for 'Module-Runtime' version '0.013'
Building Module-Runtime
ZEFRAM/Module-Runtime-0.013.tar.gz
./Build -- OK
Running Build test
t/cmn.t ........... ok
t/dependency.t .... ok
t/import_error.t .. ok
t/ivmn.t .......... ok
t/ivms.t .......... ok
t/mnf.t ........... ok
t/pod_cvg.t ....... skipped: Test::Pod::Coverage not available
t/pod_syn.t ....... skipped: Test::Pod not available
t/rm.t ............ ok
ZEFRAM/Module-Runtime-0.013.tar.gz
./Build test -- NOT OK
//hint// to see the cpan-testers results for installing this module,
try:
reports ZEFRAM/Module-Runtime-0.013.tar.gz
Running Build install
make test had returned bad status, won't install without force
How the heck does that constitute a fail?
--
Regards
Dave Saville
------------------------------
Date: Tue, 29 May 2012 15:22:27 +0100
From: Ben Morrow <ben@morrow.me.uk>
Subject: Re: Help with install from CPAN
Message-Id: <3m2f99-aro.ln1@anubis.morrow.me.uk>
Quoth "Dave Saville" <dave@invalid.invalid>:
>
> CPAN.pm: Going to build L/LE/LEONT/Module-Build-0.40.tar.gz
<snip>
> t/use_tap_harness.t (Wstat: 0 Tests: 9 Failed: 3)
Well, that's basically expected. The test is testing that MB can use
TAP::Harness directly, rather than via Test::Harness, which of course
goes back to failing as before.
I'm not sure if you understand how the various modules involved here
interact? Basically, once upon a time there was Test::Harness, which ran
some tests and printed a summary report. It was rather old code, and
only really worked for testing CPAN distributions. Some people wanted to
extend it to do other useful things: running tests in parallel, for
instance, or running tests in some other language, or doing something
interesting with the results other than printing a summary.
So, it was decided to rewrite it, but the rewrite had to be given a
different name, so it could be installed alongside the real
Test::Harness. Eventually it was decided TAP::Harness was stable enough,
and Test::Harness was replaced with a thin layer that just provided
(some) of the old API on top of TAP::Harness.
HARNESS_SUBCLASS is a feature of the Test::Harness shim layer; MB's
t/use_tap_harness.t is testing a feature of MB where a module can
request to have its tests run using TAP::Harness, so that (for instance)
it can request they are run in parallel. Since using TAP::Harness
diectly fails, for reasons we have yet to determine, that MB test fails,
as will all tests of any module which uses that MB feature.
> t/xs.t ......................... skipped: No compiler found
<snip>
>
> Any idea why I am getting the "no compiler found" message?
> Config_Heavy seems to know there is one.
Config_Heavy always thinks there is one; apparently ExtUtils::CBuilder
doesn't agree. What does this give you?
#!usr/bin/perl
use ExtUtils::CBuilder;
use File::Temp;
my $B = ExtUtils::CBuilder->new;
my $T = File::Temp::tempdir;
print "Tempdir is [$T]\n";
{
my $c = "$T/lib.c";
open my $C, ">", $c;
print $C "int boot_compilet() { return 1; }\n";
close $C;
my $o = $B->compile(source => $c);
my @l = $B->link(objects => $o, module_name => "compilet");
}
{
my $c = "$T/exe.c";
open $C, ">", $c;
print $C "int main() { return 0; }\n";
close $C;
my $o = $B->compile(source => $c);
my $e = $B->link_executable(objects => $o);
print "$e\n";
my $x = system $e;
print "Exe returned [$x]\n";
}
(It will leave a tempdir you will need to clean up by hand.)
Ben
------------------------------
Date: Tue, 29 May 2012 14:53:19 +0000 (UTC)
From: "Dave Saville" <dave@invalid.invalid>
Subject: Re: Help with install from CPAN
Message-Id: <fV45K0OBJxbE-pn2-Kwg9bFUN8CuG@localhost>
On Tue, 29 May 2012 14:22:27 UTC, Ben Morrow <ben@morrow.me.uk> wrote:
Hi Ben
>
> Quoth "Dave Saville" <dave@invalid.invalid>:
> >
> > CPAN.pm: Going to build L/LE/LEONT/Module-Build-0.40.tar.gz
> <snip>
> > t/use_tap_harness.t (Wstat: 0 Tests: 9 Failed: 3)
>
> Well, that's basically expected. The test is testing that MB can use
> TAP::Harness directly, rather than via Test::Harness, which of course
> goes back to failing as before.
>
> I'm not sure if you understand how the various modules involved here
> interact? Basically, once upon a time there was Test::Harness, which ran
> some tests and printed a summary report. It was rather old code, and
> only really worked for testing CPAN distributions. Some people wanted to
> extend it to do other useful things: running tests in parallel, for
> instance, or running tests in some other language, or doing something
> interesting with the results other than printing a summary.
>
> So, it was decided to rewrite it, but the rewrite had to be given a
> different name, so it could be installed alongside the real
> Test::Harness. Eventually it was decided TAP::Harness was stable enough,
> and Test::Harness was replaced with a thin layer that just provided
> (some) of the old API on top of TAP::Harness.
>
> HARNESS_SUBCLASS is a feature of the Test::Harness shim layer; MB's
> t/use_tap_harness.t is testing a feature of MB where a module can
> request to have its tests run using TAP::Harness, so that (for instance)
> it can request they are run in parallel. Since using TAP::Harness
> diectly fails, for reasons we have yet to determine, that MB test fails,
> as will all tests of any module which uses that MB feature.
>
Thanks for the explanation.
> > t/xs.t ......................... skipped: No compiler found
> <snip>
> >
> > Any idea why I am getting the "no compiler found" message?
> > Config_Heavy seems to know there is one.
>
> Config_Heavy always thinks there is one; apparently ExtUtils::CBuilder
> doesn't agree. What does this give you?
>[T:\tmp]try.pl
Tempdir is [T:/tmp/yrfcyhiavq]
gcc -Iu:/perl5/lib/5.14.2/os2/CORE -Zdll -c -DDOSISH -DOS2=2 -DEMBED
-I. -I/usr/local/include -O2 -fomit-frame-pointer -falign-loops=2
-falign-jumps=2 -falign-functions=2 -s -o T:/tmp/yrfcyhiavq/lib.o
T:/tmp/yrfcyhiavq/lib.c
emximp -o T:/tmp/yrfcyhiavq/lib.a T:/tmp/yrfcyhiavq/lib.def
gcc -Zdll -Zomf -o T:/tmp/yrfcyhiavq/compilFH.dll
T:/tmp/yrfcyhiavq/lib.o u:/per
l5/lib/5.14.2/os2/CORE/libperl.a
u:/perl5/lib/5.14.2/os2/CORE/libperl_override.a
T:/tmp/yrfcyhiavq/lib.def
weakld: error: Unresolved symbol (UNDEF EXPORT) 'boot_compilet'.
weakld: info: The symbol is referenced by:
T:/tmp/yrfcyhiavq/lib.def
Ignoring
unresolved externals reported from weak prelinker.
Error! E2028: boot_compilet is an
undefined reference
Error! E2044: exported symbol boot_compilet not found
error building T:/tmp/yrfcyhiavq/compilFH.dll from
T:/tmp/yrfcyhiavq/lib.o u:/perl5/lib/5.14.2/os2/CORE/libperl.a at
/perl5/lib/5.14.2/ExtUtils/CBuilder/Base.pm line 310.
--
Regards
Dave Saville
------------------------------
Date: Tue, 29 May 2012 18:12:41 +0100
From: Ben Morrow <ben@morrow.me.uk>
Subject: Re: Help with install from CPAN
Message-Id: <9lcf99-cop.ln1@anubis.morrow.me.uk>
Quoth "Dave Saville" <dave@invalid.invalid>:
> And another thing :-)
>
> CPAN.pm: Going to build Z/ZE/ZEFRAM/Module-Runtime-0.013.tar.gz
>
> Created MYMETA.yml and MYMETA.json
> Creating new 'Build' script for 'Module-Runtime' version '0.013'
> Building Module-Runtime
> ZEFRAM/Module-Runtime-0.013.tar.gz
> ./Build -- OK
> Running Build test
> t/cmn.t ........... ok
> t/dependency.t .... ok
> t/import_error.t .. ok
> t/ivmn.t .......... ok
> t/ivms.t .......... ok
> t/mnf.t ........... ok
> t/pod_cvg.t ....... skipped: Test::Pod::Coverage not available
> t/pod_syn.t ....... skipped: Test::Pod not available
> t/rm.t ............ ok
> ZEFRAM/Module-Runtime-0.013.tar.gz
> ./Build test -- NOT OK
> //hint// to see the cpan-testers results for installing this module,
> try:
> reports ZEFRAM/Module-Runtime-0.013.tar.gz
> Running Build install
> make test had returned bad status, won't install without force
>
> How the heck does that constitute a fail?
Hmmm. CPAN.pm just goes off the exit status of './Build test', so if
that's wrong it will think the tests failed regardless of all the 'ok's.
If you 'look Module::Runtime' from the CPAN shell, then run
perl Build.PL
./Build
./Build test
what exit status do you get from the last step? (If you're using a shish
shell, 'echo $?'.) Are you still seeing the 'exit status increments by
one each time' you seemed to be getting before?
Ben
------------------------------
Date: Tue, 29 May 2012 18:17:17 +0000 (UTC)
From: "Dave Saville" <dave@invalid.invalid>
Subject: Re: Help with install from CPAN
Message-Id: <fV45K0OBJxbE-pn2-YGe5B04QGs2M@localhost>
On Tue, 29 May 2012 17:12:41 UTC, Ben Morrow <ben@morrow.me.uk> wrote:
<snip>
> > How the heck does that constitute a fail?
>
> Hmmm. CPAN.pm just goes off the exit status of './Build test', so if
> that's wrong it will think the tests failed regardless of all the 'ok's.
> If you 'look Module::Runtime' from the CPAN shell, then run
>
> perl Build.PL
> ./Build
> ./Build test
>
> what exit status do you get from the last step? (If you're using a shish
> shell, 'echo $?'.) Are you still seeing the 'exit status increments by
> one each time' you seemed to be getting before?
cpan[2]> look Module::Runtime
Going to read 't:/CPAN/Metadata'
Database was generated on Tue, 29 May 2012 12:07:03 GMT
Running look for module 'Module::Runtime'
Trying to open a subshell in the build directory...
Checksum for
t:/CPAN/sources/authors/id/Z/ZE/ZEFRAM/Module-Runtime-0.013.tar.gz
ok
Scanning cache t:/CPAN/build for sizes
.......................................................................
....DONE
Working directory is t:/CPAN/build/Module-Runtime-0.013-k0Ogq7
# perl Build.PL
Created MYMETA.yml and MYMETA.json
Creating new 'Build' script for 'Module-Runtime' version '0.013'
# ./Build
Building Module-Runtime
# ./Build.test
./Build.test: No such file or directory
# ./Build test
UseQx: loaded
UseQx: running [perl -w
-IT:/CPAN/build/Module-Runtime-0.013-k0Ogq7/blib/lib -IT
:/CPAN/build/Module-Runtime-0.013-k0Ogq7/blib/arch t/cmn.t]
t/cmn.t ........... ok
UseQx: running [perl -w
-IT:/CPAN/build/Module-Runtime-0.013-k0Ogq7/blib/lib -IT
:/CPAN/build/Module-Runtime-0.013-k0Ogq7/blib/arch t/dependency.t]
t/dependency.t .... ok
UseQx: running [perl -w
-IT:/CPAN/build/Module-Runtime-0.013-k0Ogq7/blib/lib -IT
:/CPAN/build/Module-Runtime-0.013-k0Ogq7/blib/arch t/import_error.t]
t/import_error.t .. ok
UseQx: running [perl -w
-IT:/CPAN/build/Module-Runtime-0.013-k0Ogq7/blib/lib -IT
:/CPAN/build/Module-Runtime-0.013-k0Ogq7/blib/arch t/ivmn.t]
t/ivmn.t .......... ok
UseQx: running [perl -w
-IT:/CPAN/build/Module-Runtime-0.013-k0Ogq7/blib/lib -IT
:/CPAN/build/Module-Runtime-0.013-k0Ogq7/blib/arch t/ivms.t]
t/ivms.t .......... ok
UseQx: running [perl -w
-IT:/CPAN/build/Module-Runtime-0.013-k0Ogq7/blib/lib -IT
:/CPAN/build/Module-Runtime-0.013-k0Ogq7/blib/arch t/mnf.t]
t/mnf.t ........... ok
UseQx: running [perl -w
-IT:/CPAN/build/Module-Runtime-0.013-k0Ogq7/blib/lib -IT
:/CPAN/build/Module-Runtime-0.013-k0Ogq7/blib/arch t/pod_cvg.t]
t/pod_cvg.t ....... skipped: Test::Pod::Coverage not available
UseQx: running [perl -w
-IT:/CPAN/build/Module-Runtime-0.013-k0Ogq7/blib/lib -IT
:/CPAN/build/Module-Runtime-0.013-k0Ogq7/blib/arch t/pod_syn.t]
t/pod_syn.t ....... skipped: Test::Pod not available
UseQx: running [perl -w
-IT:/CPAN/build/Module-Runtime-0.013-k0Ogq7/blib/lib -IT
:/CPAN/build/Module-Runtime-0.013-k0Ogq7/blib/arch t/rm.t]
t/rm.t ............ ok
UseQx: running [perl -w
-IT:/CPAN/build/Module-Runtime-0.013-k0Ogq7/blib/lib -IT
:/CPAN/build/Module-Runtime-0.013-k0Ogq7/blib/arch t/taint.t]
"-T" is on the #! line, it must also be used on the command line at
t/taint.t line 1.
PANIC: could not determine iterator for input at
/perl5/lib/5.14.2/Test/Harness
.pm line 152
# echo $?
255
Seen that PANIC several times. Should we take this to PM? dave at
deezee dot org
--
Regards
Dave Saville
------------------------------
Date: Tue, 29 May 2012 23:49:17 +0100
From: Ben Morrow <ben@morrow.me.uk>
Subject: Re: Help with install from CPAN
Message-Id: <dc0g99-7j11.ln1@anubis.morrow.me.uk>
Quoth "Dave Saville" <dave@invalid.invalid>:
>
> UseQx: running [perl -w
> -IT:/CPAN/build/Module-Runtime-0.013-k0Ogq7/blib/lib -IT
> :/CPAN/build/Module-Runtime-0.013-k0Ogq7/blib/arch t/taint.t]
> "-T" is on the #! line, it must also be used on the command line at
> t/taint.t line 1.
> PANIC: could not determine iterator for input at
> /perl5/lib/5.14.2/Test/Harness
> .pm line 152
So it is a genuine failure, it just didn't get as far as printing the
header for t/taint.t. What's happening here is that UseQx doesn't
implement the logic to detect and run tests that use taint mode; so much
for trying to patch a complex system with a quick hack or two.
At this point I don't think this approach is viable: if we keep going
round we'll end up reimplementing the whole of TAP::* before it works
reliably. What we need to do is work out what is causing vanilla
TAP::Harness to fail, and how to fix it; unfortunately, without my
fingers on your keyboard I'm not sure how best to do that.
Maybe the first thing to do is run the tests for TAP::* and see what
fails? Make sure HARNESS_SUBCLASS is *unset*, then
cpan> look Test::Harness
$ perl Makefile.PL
$ make
and then go through t/*.t and t/compat/*.t and run each one through
perl -Mblib t/x.t | grep -E '^not ok'
to see what fails. Unfortunately the following tests can't be run like
that
t/aggregator.t
t/bailout.t
t/base.t
t/callbacks.t
t/errors.t
t/nested.t
t/object.t
t/premature-bailout.t
t/results.t
t/streams.t
t/yamlish-output.t
t/compat/version.t
because they use -T on the #! line; I can't see any simple way to run
them individually without falling foul of taint checks.
> Seen that PANIC several times. Should we take this to PM? dave at
> deezee dot org
I don't see any reason to: this is entirely on-topic for clpmisc, and
there is at least a chance someone else will spot something we don't. Of
course, if you'd rather, feel free; my email is valid, though I can't
promise I'll stick with this until it's solved.
Ben
------------------------------
Date: Tue, 29 May 2012 16:32:54 +0000 (UTC)
From: Chris Nehren <apeiron@pobox.com>
Subject: Quick and dirty article filter
Message-Id: <jq2tnm$tf4$1@speranza.aioe.org>
As I've been spending more time on Usenet, I've come to become rather
annoyed at the "features" of Google Groups. Yes, it sucks, it makes
things a mess, and so on. But! Instead of just whining about the
problem, I've put together a small, simple Perl program to filter Google
Groups (and other) articles into something resembling sanity. I wrote
this for slrn, and will include the macro I wrote for slrn as well.
A quick precaution about this code: yes, it uses Email::Simple. For the
most part, email messages and news articles are compatible--but that's
not the part that summons this precaution. The code uses Email::Simple
to stick its fingers in its ears and pretend that encodings other than
US ASCII do not exist. For Usenet, this is still mostly okay (at least
for the parts of it I read, i.e. the Big 8 and a few groups in alt.*).
It very likely will break on multibyte messages, but I tend not to read
or encounter those. You have been warned.
This requires a new-ish version of libslang (2.2.4 works) due to a
recently-fixed bug in process.sl that I stumbled over while developing
the slang macro. It was fixed in git at the time I found it, but not in
the released version of libslang.
Patches are, of course, welcome. If someone wants to do proper encoding
handling, that'd be pretty awesome. If you really care about licenses,
I'll release it as the same terms as perl 5.16.0 or any later version.
Provided as-is, no warranty, yadda yadda.
fix_article.pl:
=== cut ===
#!/usr/bin/env perl
use strict;
use warnings;
use IO::All;
use Email::Simple;
use Text::Autoformat;
my $raw = io('-')->all;
my $article = Email::Simple->new($raw);
my $body = $article->body;
$body =~ s/^(>+)(\w)/$1 $2/mg;
$body =~ s/^>( >)+/>>/mg;
$body = autoformat $body;
$article->body_set($body);
print $article->as_string;
=== cut ===
fix_article.sl:
=== cut ===
require("process");
define fix_article_stupidity ()
{
variable a = article_as_string();
variable p = new_process(["/path/to/fix_article.pl"]; write={1,2}, read=0);
fputslines(a, p.fp0);
fflush(p.fp0);
fclose(p.fp0);
variable r = fgetslines(p.fp1);
p.wait();
variable n = strjoin(r, "");
replace_article(n);
}
!if(register_hook("read_article_hook", "fix_article_stupidity"))
message("Warning: Could not register fix_article_stupidity" +
" for read_article_hook");
=== cut ===
--
Thanks and best regards,
Chris Nehren
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>
Administrivia:
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
Back issues are available via anonymous ftp from
ftp://cil-www.oce.orst.edu/pub/perl/old-digests.
#For other requests pertaining to the digest, send mail to
#perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
#sending perl questions to the -request address, I don't have time to
#answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V11 Issue 3703
***************************************
