Smoke [5.9.3] 25417 FAIL(F) freebsd 5.4-STABLE (i386/6 cpu)

2005-09-16 Thread david
Automated smoke report for 5.9.3 patch 25417
profane.mongueurs.net: Intel Pentium III Xeon (i386/6 cpu)
onfreebsd - 5.4-STABLE
using cc version 3.4.2 [FreeBSD] 20040728
smoketime 5 hours 19 minutes (average 31 minutes 56 seconds)

Summary: FAIL(F)

O = OK  F = Failure(s), extended report at the bottom
X = Failure(s) under TEST but not under harness
? = still running or test results not (yet) available
Build failures during:   - = unknown or N/A
c = Configure, m = make, M = make (after miniperl), t = make test-prep

   25417 Configuration (common) none
--- -
F - F - -Uuseperlio
O O O O 
O O O O -Duse64bitint
O O O O -Duseithreads
O O O O -Duseithreads -Duse64bitint
| | | +- PERLIO = perlio -DDEBUGGING
| | +--- PERLIO = stdio  -DDEBUGGING
| +- PERLIO = perlio
+--- PERLIO = stdio


Failures:
[stdio] -Uuseperlio
[stdio] -DDEBUGGING -Uuseperlio
../ext/B/t/concise-xs.t.FAILED 3-779
../ext/B/t/concise.tFAILED 145-149
../ext/IO/t/io_sock.t...FAILED 18-26

-- 
Report by Test::Smoke v1.19#716 running on perl 5.8.7
(Reporter v0.016 / Smoker v0.015)


Re: Smoke [5.9.3] 25417 FAIL(F) freebsd 5.4-STABLE (i386/6 cpu)

2005-09-16 Thread Rafael Garcia-Suarez
I think we had said we could always keep useperlio for blead smokes.

[EMAIL PROTECTED] wrote:
 Automated smoke report for 5.9.3 patch 25417
 profane.mongueurs.net: Intel Pentium III Xeon (i386/6 cpu)
 onfreebsd - 5.4-STABLE
 using cc version 3.4.2 [FreeBSD] 20040728
 smoketime 5 hours 19 minutes (average 31 minutes 56 seconds)
 
 Summary: FAIL(F)
 
 O = OK  F = Failure(s), extended report at the bottom
 X = Failure(s) under TEST but not under harness
 ? = still running or test results not (yet) available
 Build failures during:   - = unknown or N/A
 c = Configure, m = make, M = make (after miniperl), t = make test-prep
 
25417 Configuration (common) none
 --- -
 F - F - -Uuseperlio
 O O O O 
 O O O O -Duse64bitint
 O O O O -Duseithreads
 O O O O -Duseithreads -Duse64bitint
 | | | +- PERLIO = perlio -DDEBUGGING
 | | +--- PERLIO = stdio  -DDEBUGGING
 | +- PERLIO = perlio
 +--- PERLIO = stdio
 
 
 Failures:
 [stdio] -Uuseperlio
 [stdio] -DDEBUGGING -Uuseperlio
 ../ext/B/t/concise-xs.t.FAILED 3-779
 ../ext/B/t/concise.tFAILED 145-149
 ../ext/IO/t/io_sock.t...FAILED 18-26
 
 -- 
 Report by Test::Smoke v1.19#716 running on perl 5.8.7
 (Reporter v0.016 / Smoker v0.015)


Re: Smoke [5.9.3] 25417 FAIL(F) freebsd 5.4-STABLE (i386/6 cpu)

2005-09-16 Thread David Landgren

Rafael Garcia-Suarez wrote:

I think we had said we could always keep useperlio for blead smokes.


ignore these reports. I was syncing from the wrong repository.

David



Smoke [5.9.3] 25417 FAIL(F) freebsd 5.4-STABLE (i386/6 cpu)

2005-09-15 Thread david
Automated smoke report for 5.9.3 patch 25417
profane.mongueurs.net: Intel Pentium III Xeon (i386/6 cpu)
onfreebsd - 5.4-STABLE
using cc version 3.4.2 [FreeBSD] 20040728
smoketime 5 hours 15 minutes (average 31 minutes 32 seconds)

Summary: FAIL(F)

O = OK  F = Failure(s), extended report at the bottom
X = Failure(s) under TEST but not under harness
? = still running or test results not (yet) available
Build failures during:   - = unknown or N/A
c = Configure, m = make, M = make (after miniperl), t = make test-prep

   25417 Configuration (common) none
--- -
F - F - -Uuseperlio
O O O O 
O O O O -Duse64bitint
O O O O -Duseithreads
O O O O -Duseithreads -Duse64bitint
| | | +- PERLIO = perlio -DDEBUGGING
| | +--- PERLIO = stdio  -DDEBUGGING
| +- PERLIO = perlio
+--- PERLIO = stdio


Failures:
[stdio] -Uuseperlio
[stdio] -DDEBUGGING -Uuseperlio
../ext/B/t/concise-xs.t.FAILED 3-779
../ext/B/t/concise.tFAILED 145-149
../ext/IO/t/io_sock.t...FAILED 18-26

-- 
Report by Test::Smoke v1.19#716 running on perl 5.8.7
(Reporter v0.016 / Smoker v0.015)


Re: no 6;

2005-09-11 Thread Michael G Schwern
On Mon, Sep 05, 2005 at 08:29:00PM +0100, Nicholas Clark wrote:
 It's not valid perl 4:
 
 $ perl4 -e 'no 5; print [EMAIL PROTECTED]' 
 syntax error in file /tmp/perl-em47tij at line 1, next 2 tokens no 5
 Execution of /tmp/perl-em47tij aborted due to compilation errors.

$ perl1 -e 'no 4;  print Happy New Year, 1988!\n'
syntax error in file /tmp/perl-eE52cHQ at line 1, next token string
Execution aborted due to compilation errors.


-- 
Michael G Schwern [EMAIL PROTECTED] http://www.pobox.com/~schwern
Insulting our readers is part of our business model.
http://somethingpositive.net/sp07122005.shtml


Re: no 6;

2005-09-05 Thread Nicholas Clark
On Thu, Sep 01, 2005 at 12:07:59PM -0500, David Nicol wrote:

 Does this mean that we have to implement perl4 compatability?
 
 perl5 -e 'no 5; print [EMAIL PROTECTED]'

It's not valid perl 4:

$ perl4 -e 'no 5; print [EMAIL PROTECTED]' 
syntax error in file /tmp/perl-em47tij at line 1, next 2 tokens no 5
Execution of /tmp/perl-em47tij aborted due to compilation errors.

So I think not.

(if anyone wants to compile perl4 on FreeBSD, tell Configure that libc is
/usr/lib/libc.a, rather than .so
After that you'll need to edit a couple of things, but they'll be obvious)

Nicholas Clark


no 6;

2005-09-01 Thread Rafael Garcia-Suarez
I just commited into bleadperl a patch that implements this :

$ ./perl -e 'no 5'
Perls since v5.0.0 too modern--this is v5.9.3, stopped at -e line 1.
BEGIN failed--compilation aborted at -e line 1.

That is, the exact opposite of the current use VERSION syntax.

One of the uses I had in mind for it is to put no 6 at the top of
modules or programs that are too tightly bound to Perl 5 that there
wouldn't be beneficial to port them to Perl 6. B::* or Safe come to
mind. Of course, that would mean that Perl 6 should also recognize and
handle the no 6 idiom. That's why I'm cc:ing p6l.

Comments ?

The patch can be found at
http://public.activestate.com/cgi-bin/perlbrowse?patch=25344


Re: no 6;

2005-09-01 Thread David Nicol
On 9/1/05, Rafael Garcia-Suarez [EMAIL PROTECTED] wrote:
 I just commited into bleadperl a patch that implements this :
 
 $ ./perl -e 'no 5'
 Perls since v5.0.0 too modern--this is v5.9.3, stopped at -e line 1.
 BEGIN failed--compilation aborted at -e line 1.
 
 That is, the exact opposite of the current use VERSION syntax.


Does this mean that we have to implement perl4 compatability?

perl5 -e 'no 5; print [EMAIL PROTECTED]'


Smoke [5.9.3] 25289 FAIL(F) linux 2.6.12-6-686 [debian] (i686/1 cpu)

2005-08-12 Thread steve
Automated smoke report for 5.9.3 patch 25289
kirk: Intel(R) Celeron(R) CPU 2.00GHz (GenuineIntel 1994MHz) (i686/1 cpu)
onlinux - 2.6.12-6-686 [debian]
using cc version 4.0.2 20050808 (prerelease) (Debian 4.0.1-4ubuntu2)
smoketime 2 hours 47 minutes (average 20 minutes 58 seconds)

Summary: FAIL(F)

O = OK  F = Failure(s), extended report at the bottom
X = Failure(s) under TEST but not under harness
? = still running or test results not (yet) available
Build failures during:   - = unknown or N/A
c = Configure, m = make, M = make (after miniperl), t = make test-prep

   25289 Configuration (common) none
--- -
O O 
F O -Duseithreads
O O -DPERL_DEBUG_COW
O O -DPERL_DEBUG_COW -Duseithreads
| +- -DDEBUGGING
+--- no debugging


Failures:
[default] -Duseithreads
../ext/POSIX/t/sigaction.t..FAILED 29

-- 
Report by Test::Smoke v1.19#716 running on perl 5.8.7
(Reporter v0.016 / Smoker v0.015)



Smoke [5.9.3] 25272 FAIL(c) linux 2.6.12-6-686 [debian] (i686/1 cpu)

2005-08-06 Thread steve
Automated smoke report for 5.9.3 patch 25272
kirk: Intel(R) Celeron(R) CPU 2.00GHz (GenuineIntel 1994MHz) (i686/1 cpu)
onlinux - 2.6.12-6-686 [debian]
using ? unknown cc version 
smoketime 11 seconds (average 1.375 seconds)

Summary: FAIL(c)

O = OK  F = Failure(s), extended report at the bottom
X = Failure(s) under TEST but not under harness
? = still running or test results not (yet) available
Build failures during:   - = unknown or N/A
c = Configure, m = make, M = make (after miniperl), t = make test-prep

   25272 Configuration (common) none
--- -
c c 
c c -Duseithreads
c c -DPERL_DEBUG_COW
c c -DPERL_DEBUG_COW -Duseithreads
| +- -DDEBUGGING
+--- no debugging


MANIFEST declared 'ext/Encode/lib/Encode/MIME/Header/ISO_2022_JP.pm' but it is 
missing
MANIFEST declared 'ext/Encode/t/mime_header_iso2022jp.t' but it is missing

-- 
Report by Test::Smoke v1.19#716 running on perl 5.8.7
(Reporter v0.016 / Smoker v0.015)



[PATCH] no Carp #6 (File::Compare, File::Copy, File::Temp)

2005-06-26 Thread Tels
-BEGIN PGP SIGNED MESSAGE-

Moin,

attached patch loads Carp on demand for the aforementioned three modules.

All tests successful.
u=2.87  s=0.80  cu=186.18  cs=26.04  scripts=954  tests=107891

Although I think these patches are usefull, I'll stop until consens is 
reached about whether they are usefull (I think so) or not. Makes no 
sense to prepare them when they won't get applied.

Best wishes,

Tels

- -- 
 Signed on Sun Jun 26 13:21:42 2005 with key 0x93B84C15.
 Visit my photo gallery at http://bloodgate.com/photos/
 PGP key on http://bloodgate.com/tels.asc or per email.

 Duke Nukem Forever will come out before Doom 3. - George Broussard,
 2002 (http://tinyurl.com/6m8nh)

-BEGIN PGP SIGNATURE-
Version: GnuPG v1.2.4 (GNU/Linux)

iQEVAwUBQr6ZRXcLPEOTuEwVAQH4Ogf9FJ0LERcwPrEOXQ6dZJcB30ttMQGW3fT5
878FS6OK1K6f/QQqSJdR63OKXlxAH0tNLNGukzQrKxtfrcd25+FvgyR5mA6sodK0
XfL6X/fBFkWiQbHKVv4GRgSkBvxR8B6kMce7ur48/Z1rpXPjlrjziYehmqzrLQwZ
14auPu3RFz4KIGPE5zQ1e/PWI8hpr0xGwPPEt8omCsalw9e+hC5uyFvEGOyH2KpU
2Eju9QSesKExh2hbp9E8tHdU9G5OpcOiFe9UHWxRGg6oXhViYhV47Z8OIIqPGefp
tbJeApjEZI4vNQpzeoalF87r9IBYBnNX14QDn+uJ6m/RRH8Td7tpXA==
=q/wb
-END PGP SIGNATURE-
diff -ruN blead.patch.5/lib/File/Compare.pm blead.patch.6/lib/File/Compare.pm
--- blead.patch.5/lib/File/Compare.pm   2002-04-03 16:58:14.0 +0200
+++ blead.patch.6/lib/File/Compare.pm   2005-06-26 13:17:07.0 +0200
@@ -6,15 +6,19 @@
 our($VERSION, @ISA, @EXPORT, @EXPORT_OK, $Too_Big);
 
 require Exporter;
-use Carp;
 
-$VERSION = '1.1003';
+$VERSION = '1.1004';
 @ISA = qw(Exporter);
 @EXPORT = qw(compare);
 @EXPORT_OK = qw(cmp compare_text);
 
 $Too_Big = 1024 * 1024 * 2;
 
+sub croak {
+require Carp;
+goto Carp::croak;
+}
+
 sub compare {
 croak(Usage: compare( file1, file2 [, buffersize]) )
   unless(@_ == 2 || @_ == 3);
diff -ruN blead.patch.5/lib/File/Copy.pm blead.patch.6/lib/File/Copy.pm
--- blead.patch.5/lib/File/Copy.pm  2004-07-01 12:37:39.0 +0200
+++ blead.patch.6/lib/File/Copy.pm  2005-06-26 13:20:54.0 +0200
@@ -10,7 +10,6 @@
 use 5.006;
 use strict;
 use warnings;
-use Carp;
 use File::Spec;
 use Config;
 our(@ISA, @EXPORT, @EXPORT_OK, $VERSION, $Too_Big, $Syscopy_is_copy);
@@ -24,7 +23,7 @@
 # package has not yet been updated to work with Perl 5.004, and so it
 # would be a Bad Thing for the CPAN module to grab it and replace this
 # module.  Therefore, we set this module's version higher than 2.0.
-$VERSION = '2.08';
+$VERSION = '2.08_01';
 
 require Exporter;
 @ISA = qw(Exporter);
@@ -33,6 +32,11 @@
 
 $Too_Big = 1024 * 1024 * 2;
 
+sub croak {
+require Carp;
+goto Carp::croak;
+}
+
 my $macfiles;
 if ($^O eq 'MacOS') {
$macfiles = eval { require Mac::MoreFiles };
diff -ruN blead.patch.5/lib/File/Temp.pm blead.patch.6/lib/File/Temp.pm
--- blead.patch.5/lib/File/Temp.pm  2005-03-22 12:29:41.0 +0100
+++ blead.patch.6/lib/File/Temp.pm  2005-06-26 13:47:43.0 +0200
@@ -131,7 +131,6 @@
 # People would like a version on 5.005 so give them what they want :-)
 use 5.005;
 use strict;
-use Carp;
 use File::Spec 0.8;
 use File::Path qw/ rmtree /;
 use Fcntl 1.03;
@@ -183,7 +182,7 @@
 
 # Version number
 
-$VERSION = '0.16';
+$VERSION = '0.16_01';
 
 # This is a list of characters that can be used in random filenames
 
@@ -254,6 +253,16 @@
 
 # INTERNAL ROUTINES - not to be used outside of package
 
+sub carp {
+require Carp;
+goto Carp::carp;
+}
+
+sub croak {
+require Carp;
+goto Carp::croak;
+}
+
 # Generic routine for getting a temporary filename
 # modelled on OpenBSD _gettemp() in mktemp.c
 
@@ -1910,7 +1919,8 @@
 
   # this is no longer a file, but may be a directory, or worse
   unless (-f $path) {
-confess panic: $path is no longer a file: [EMAIL PROTECTED];
+require Carp;
+Carp::confess (panic: $path is no longer a file: [EMAIL PROTECTED]);
   }
 
   # Do comparison of each member of the array


[PATCH] Refactoring to Sv*_set() macros - patch #6

2005-04-20 Thread Steve Peters
Argh!  I spoke too soon again.  This patch is mainly clean up of a file
missed in the previous patch, lvalue assignments that showed up when an
additional -D flag was set, and changes to bytecode.pl and 
ext/Byteloader/bytecode.h since I hadn't realized that byterun.c was a
generated file.

Questions and comments are welcome.

Steve Peters
[EMAIL PROTECTED]
--- ext/ByteLoader/bytecode.h.orig  2003-09-04 13:45:58.0 -0500
+++ ext/ByteLoader/bytecode.h   2005-04-19 23:52:22.801862984 -0500
@@ -126,12 +126,19 @@
 #define BSET_mg_namex(mg, arg) \
(mg-mg_ptr = (char*)SvREFCNT_inc((SV*)arg),\
 mg-mg_len = HEf_SVKEY)
+#define BSET_xmg_stash(sv, arg) SvSTASH_set(sv, arg)
 #define BSET_sv_upgrade(sv, arg)   (void)SvUPGRADE(sv, arg)
+#define BSET_xrv(sv, arg) SvRV_set(sv, arg)
 #define BSET_xpv(sv)   do {\
SvPV_set(sv, bstate-bs_pv.xpv_pv); \
SvCUR_set(sv, bstate-bs_pv.xpv_cur);   \
SvLEN_set(sv, bstate-bs_pv.xpv_len);   \
 } while (0)
+#define BSET_xpv_cur(sv, arg) SvCUR_set(sv, arg)
+#define BSET_xpv_len(sv, arg) SvLEN_set(sv, arg)
+#define BSET_xiv(sv, arg) SvIV_set(sv, arg)
+#define BSET_xnv(sv, arg) SvNV_set(sv, arg)
+
 #define BSET_av_extend(sv, arg)av_extend((AV*)sv, arg)
 
 #define BSET_av_push(sv, arg)  av_push((AV*)sv, arg)
--- bytecode.pl.orig2004-11-16 05:24:36.0 -0600
+++ bytecode.pl 2005-04-19 23:50:28.577227768 -0500
@@ -368,12 +368,12 @@
 sv_refcnt  SvREFCNT(bstate-bs_sv) U32
 sv_refcnt_add  SvREFCNT(bstate-bs_sv) I32 x
 sv_flags   SvFLAGS(bstate-bs_sv)  U32
-xrvSvRV(bstate-bs_sv) svindex
+xrvbstate-bs_sv   svindex x
 xpvbstate-bs_sv   nonex
-xpv_curSvCUR(bstate-bs_sv)STRLEN
-xpv_lenSvLEN(bstate-bs_sv)STRLEN
-xivSvIVX(bstate-bs_sv)IV
-xnvSvNVX(bstate-bs_sv)NV
+xpv_curbstate-bs_sv   STRLEN  
x
+xpv_lenbstate-bs_sv   STRLEN  
x
+xivbstate-bs_sv   IV  x
+xnvbstate-bs_sv   NV  x
 xlv_targoffLvTARGOFF(bstate-bs_sv)STRLEN
 xlv_targlenLvTARGLEN(bstate-bs_sv)STRLEN
 xlv_targ   LvTARG(bstate-bs_sv)   svindex
@@ -422,7 +422,7 @@
 mg_flags   SvMAGIC(bstate-bs_sv)-mg_flagsU8
 mg_nameSvMAGIC(bstate-bs_sv)  pvcontents  
x
 mg_namex   SvMAGIC(bstate-bs_sv)  svindex x
-xmg_stash  *(SV**)SvSTASH(bstate-bs_sv)  svindex
+xmg_stash  bstate-bs_sv   svindex X
 gv_fetchpv bstate-bs_sv   strconstx
 gv_fetchpvxbstate-bs_sv   strconstx
 gv_stashpv bstate-bs_sv   strconstx
--- malloc.c.orig   2005-04-18 07:44:18.0 -0500
+++ malloc.c2005-04-19 21:34:07.160992088 -0500
@@ -1176,7 +1176,8 @@
 
 SvPOK_off(sv);
 SvPV_set(sv, Nullch);
-SvCUR(sv) = SvLEN(sv) = 0;
+SvCUR_set(sv, 0);
+SvLEN_set(sv, 0);
 *size = malloced_size(pv) + M_OVERHEAD;
 return pv - sizeof(union overhead);
 }
--- sv.c.orig   2005-04-19 17:22:16.0 -0500
+++ sv.c2005-04-19 22:02:41.536367416 -0500
@@ -4586,8 +4586,8 @@
   (sflags  SVf_UTF8?-cur:cur), hash));
 SvUV_set(dstr, hash);
 }
-SvLEN(dstr) = len;
-SvCUR(dstr) = cur;
+SvLEN_set(dstr, len);
+SvCUR_set(dstr, cur);
 SvREADONLY_on(dstr);
 SvFAKE_on(dstr);
 /* Relesase a global SV mutex.  */
@@ -4748,8 +4748,8 @@
 SvFLAGS(dstr) = (SVt_PVIV|SVf_POK|SVp_POK|SVf_FAKE|SVf_READONLY);
 if (SvUTF8(sstr))
SvUTF8_on(dstr);
-SvLEN(dstr) = len;
-SvCUR(dstr) = cur;
+SvLEN_set(dstr, len);
+SvCUR_set(dstr, cur);
 if (DEBUG_C_TEST) {
sv_dump(dstr);
 }
@@ -4989,14 +4989,14 @@
 SvREADONLY_off(sv);
 /* This SV doesn't own the buffer, so need to New() a new one:  */
 SvPV_set(sv, (char*)0);
-SvLEN(sv) = 0;
+SvLEN_set(sv, 0);
 if (flags  SV_COW_DROP_PV) {
 /* OK, so we don't need to copy our buffer.  */
 SvPOK_off(sv);
 } else {
 SvGROW(sv, cur + 1);
 Move(pvx,SvPVX(sv),cur,char);
-SvCUR(sv) = cur;
+SvCUR_set(sv, cur);
 *SvEND(sv) = '\0';
 }

Re: [PATCH] Refactoring to Sv*_set() macros - patch #6

2005-04-20 Thread Nicholas Clark
On Wed, Apr 20, 2005 at 06:27:20AM -0500, Steve Peters wrote:
 Argh!  I spoke too soon again.  This patch is mainly clean up of a file
 missed in the previous patch, lvalue assignments that showed up when an
 additional -D flag was set, and changes to bytecode.pl and 
 ext/Byteloader/bytecode.h since I hadn't realized that byterun.c was a
 generated file.

Thanks applied (24260)

Nick


Re: Problems building perl on FreeBSD/amd64 5.2.1, 5.3-STABLE, and 6-CURRENT

2004-12-12 Thread Mike Hunter
On Dec 10, To [EMAIL PROTECTED] wrote:

Believe it or not, somebody wrote and suggested that I hadn't run ntpdate.
It looks like that did the trick (although looking at the date before I
ran ntpdate didn't show it was off by much...maybe it was set for 2004 bc
or something.)

Thanks and sorry for the noise.

Mike

 Hi everybody,
 
 I recently made a post to comp.lang.perl.misc regarding some perl build
 problems I'm having, and it was suggested I post to this list.  I'm not a
 member of the list, so please CC me on replies.
 
 I cannot compile a working perl binary for freebsd 5.2.1, 5.3, or 6.0 on
 amd64.  During the `make test` phase it gets into some kind of memory loop
 with Config.t:  It sits on this test with 99% cpu and ever-increasing memory
 until finally runnnig the machine out of ram.
 
 I notice at the end of the make command that I get the following unmappy news:
 
 Writing Makefile for Errno
 == Your Makefile has been rebuilt. ==
 == Please rerun the make command.  ==
 false
 *** Error code 1
 
 Stop in /usr/tmp/perl-5.8.6/ext/Errno.
 make config failed, continuing anyway...
 ../../miniperl -I../../lib -I../../lib -I../../lib -I../../lib 
 Errno_pm.PL Errno.pm
 Skip ../../lib/Errno.pm (unchanged)
 *** Error code 1 (ignored)
  
 It then beckons me to run make test.  Could that be the problem?  Make test
 fails as described above.
 
 I have the incomplete build sitting in /tmp, and I can envoke lib/Config.t
 and get it to do it straight away.  kdump (strace on linux) shows it doing
 break after break:
 
  23961 perl CALL  break(0x1f86000)
  23961 perl RET   break 0
  23961 perl CALL  break(0x2254000)
  23961 perl RET   break 0
  23961 perl CALL  break(0x1f88000)
  23961 perl RET   break 0
  23961 perl CALL  break(0x2258000)
  23961 perl RET   break 0
  23961 perl CALL  break(0x1f8a000)
  23961 perl RET   break 0
  23961 perl CALL  break(0x225c000)
  23961 perl RET   break 0
  23961 perl CALL  break(0x1f8c000)
  23961 perl RET   break 0
  23961 perl CALL  break(0x226)
  23961 perl RET   break 0
  23961 perl CALL  break(0x1f8e000)
  23961 perl RET   break 0
  23961 perl CALL  break(0x2264000)
  23961 perl RET   break 0
  23961 perl CALL  break(0x1f9)
 
 I can get a perl -v from the temporary perl but not a perl -V
 
 bash-2.05b# /usr/tmp/perl-5.8.6/perl -v
 
 This is perl, v5.8.6 built for amd64-freebsd
 
 ...
 
 bash-2.05b# /usr/tmp/perl-5.8.6/perl -V
 Can't locate Config.pm in @INC (@INC contains: 
 /usr/local/lib/perl5/5.8.6/amd64-freebsd /usr/local/lib/perl5/5.8.6 
 /usr/local/lib/perl5/site_perl/5.8.6/amd64-freebsd 
 /usr/local/lib/perl5/site_perl/5.8.6 /usr/local/lib/perl5/site_perl/5.8.5 
 /usr/local/lib/perl5/site_perl .).
 BEGIN failed--compilation aborted.
 
 Here's some results from hitting the temporary perl with gdb.  Please feel 
 free
 to chime in with advice on how to get more out of gdb :)
 
 I'm doing a set args lib/Config.t and letting it spin for a while, then
 doing ^C.  The first time I did it I got this:
 
 Program received signal SIGINT, Interrupt.
 0x000800b18655 in memset () from /lib/libc.so.6
 (gdb) bt
 #0  0x000800b18655 in memset () from /lib/libc.so.6
 #1  0x000800abc47b in _UTF8_wcsnrtombs () from /lib/libc.so.6
 #2  0x000800abd313 in _UTF8_wcsnrtombs () from /lib/libc.so.6
 #3  0x0045adf5 in Perl_safesysrealloc ()
 #4  0x0049019c in Perl_tmps_grow ()
 #5  0x0047c4a7 in Perl_sv_mortalcopy ()
 #6  0x00470a56 in Perl_pp_leavesub ()
 #7  0x0046a46e in Perl_runops_standard ()
 #8  0x0041e050 in S_call_body ()
 #9  0x0041db6f in Perl_call_sv ()
 #10 0x0041d942 in Perl_call_method ()
 #11 0x00462417 in Perl_magic_nextpack ()
 #12 0x00467051 in Perl_hv_iternext_flags ()
 #13 0x00466f0e in Perl_hv_iternext ()
 #14 0x004ad871 in Perl_do_kv ()
 #15 0x0048cd89 in Perl_pp_keys ()
 #16 0x0046a46e in Perl_runops_standard ()
 #17 0x0041d673 in S_run_body ()
 #18 0x0041d32c in perl_run ()
 #19 0x0041a45c in main ()
 (gdb) quit
 The program is running.  Exit anyway? (y or n) y
 bash-2.05b# gdb ./perl
 GNU gdb 6.1.1 [FreeBSD]
 Copyright 2004 Free Software Foundation, Inc.
 
 The second time I got this:
 
 Program received signal SIGINT, Interrupt.
 0x0047a2d3 in Perl_sv_free ()
 (gdb) bt
 #0  0x0047a2d3 in Perl_sv_free ()
 #1  0x0049224e in Perl_leave_scope ()
 #2  0x0048ffeb in Perl_pop_scope ()
 #3  0x00470afc in Perl_pp_leavesub ()
 #4  0x0046a46e in Perl_runops_standard ()
 #5  0x0041e050 in S_call_body ()
 #6  0x0041db6f in Perl_call_sv ()
 #7  0x0041d942 in Perl_call_method ()
 #8  0x00462417 in Perl_magic_nextpack ()
 #9  0x00467051 in Perl_hv_iternext_flags ()
 #10 0x00466f0e in Perl_hv_iternext ()
 #11 0x004ad871 in Perl_do_kv

Problems building perl on FreeBSD/amd64 5.2.1, 5.3-STABLE, and 6-CURRENT

2004-12-10 Thread Mike Hunter
Hi everybody,

I recently made a post to comp.lang.perl.misc regarding some perl build
problems I'm having, and it was suggested I post to this list.  I'm not a
member of the list, so please CC me on replies.

I cannot compile a working perl binary for freebsd 5.2.1, 5.3, or 6.0 on
amd64.  During the `make test` phase it gets into some kind of memory loop
with Config.t:  It sits on this test with 99% cpu and ever-increasing memory
until finally runnnig the machine out of ram.

I notice at the end of the make command that I get the following unmappy news:

Writing Makefile for Errno
== Your Makefile has been rebuilt. ==
== Please rerun the make command.  ==
false
*** Error code 1

Stop in /usr/tmp/perl-5.8.6/ext/Errno.
make config failed, continuing anyway...
../../miniperl -I../../lib -I../../lib -I../../lib -I../../lib 
Errno_pm.PL Errno.pm
Skip ../../lib/Errno.pm (unchanged)
*** Error code 1 (ignored)
 
It then beckons me to run make test.  Could that be the problem?  Make test
fails as described above.

I have the incomplete build sitting in /tmp, and I can envoke lib/Config.t
and get it to do it straight away.  kdump (strace on linux) shows it doing
break after break:

 23961 perl CALL  break(0x1f86000)
 23961 perl RET   break 0
 23961 perl CALL  break(0x2254000)
 23961 perl RET   break 0
 23961 perl CALL  break(0x1f88000)
 23961 perl RET   break 0
 23961 perl CALL  break(0x2258000)
 23961 perl RET   break 0
 23961 perl CALL  break(0x1f8a000)
 23961 perl RET   break 0
 23961 perl CALL  break(0x225c000)
 23961 perl RET   break 0
 23961 perl CALL  break(0x1f8c000)
 23961 perl RET   break 0
 23961 perl CALL  break(0x226)
 23961 perl RET   break 0
 23961 perl CALL  break(0x1f8e000)
 23961 perl RET   break 0
 23961 perl CALL  break(0x2264000)
 23961 perl RET   break 0
 23961 perl CALL  break(0x1f9)

I can get a perl -v from the temporary perl but not a perl -V

bash-2.05b# /usr/tmp/perl-5.8.6/perl -v

This is perl, v5.8.6 built for amd64-freebsd

...

bash-2.05b# /usr/tmp/perl-5.8.6/perl -V
Can't locate Config.pm in @INC (@INC contains: 
/usr/local/lib/perl5/5.8.6/amd64-freebsd /usr/local/lib/perl5/5.8.6 
/usr/local/lib/perl5/site_perl/5.8.6/amd64-freebsd 
/usr/local/lib/perl5/site_perl/5.8.6 /usr/local/lib/perl5/site_perl/5.8.5 
/usr/local/lib/perl5/site_perl .).
BEGIN failed--compilation aborted.

Here's some results from hitting the temporary perl with gdb.  Please feel free
to chime in with advice on how to get more out of gdb :)

I'm doing a set args lib/Config.t and letting it spin for a while, then
doing ^C.  The first time I did it I got this:

Program received signal SIGINT, Interrupt.
0x000800b18655 in memset () from /lib/libc.so.6
(gdb) bt
#0  0x000800b18655 in memset () from /lib/libc.so.6
#1  0x000800abc47b in _UTF8_wcsnrtombs () from /lib/libc.so.6
#2  0x000800abd313 in _UTF8_wcsnrtombs () from /lib/libc.so.6
#3  0x0045adf5 in Perl_safesysrealloc ()
#4  0x0049019c in Perl_tmps_grow ()
#5  0x0047c4a7 in Perl_sv_mortalcopy ()
#6  0x00470a56 in Perl_pp_leavesub ()
#7  0x0046a46e in Perl_runops_standard ()
#8  0x0041e050 in S_call_body ()
#9  0x0041db6f in Perl_call_sv ()
#10 0x0041d942 in Perl_call_method ()
#11 0x00462417 in Perl_magic_nextpack ()
#12 0x00467051 in Perl_hv_iternext_flags ()
#13 0x00466f0e in Perl_hv_iternext ()
#14 0x004ad871 in Perl_do_kv ()
#15 0x0048cd89 in Perl_pp_keys ()
#16 0x0046a46e in Perl_runops_standard ()
#17 0x0041d673 in S_run_body ()
#18 0x0041d32c in perl_run ()
#19 0x0041a45c in main ()
(gdb) quit
The program is running.  Exit anyway? (y or n) y
bash-2.05b# gdb ./perl
GNU gdb 6.1.1 [FreeBSD]
Copyright 2004 Free Software Foundation, Inc.

The second time I got this:

Program received signal SIGINT, Interrupt.
0x0047a2d3 in Perl_sv_free ()
(gdb) bt
#0  0x0047a2d3 in Perl_sv_free ()
#1  0x0049224e in Perl_leave_scope ()
#2  0x0048ffeb in Perl_pop_scope ()
#3  0x00470afc in Perl_pp_leavesub ()
#4  0x0046a46e in Perl_runops_standard ()
#5  0x0041e050 in S_call_body ()
#6  0x0041db6f in Perl_call_sv ()
#7  0x0041d942 in Perl_call_method ()
#8  0x00462417 in Perl_magic_nextpack ()
#9  0x00467051 in Perl_hv_iternext_flags ()
#10 0x00466f0e in Perl_hv_iternext ()
#11 0x004ad871 in Perl_do_kv ()
#12 0x0048cd89 in Perl_pp_keys ()
#13 0x0046a46e in Perl_runops_standard ()
#14 0x0041d673 in S_run_body ()
#15 0x0041d32c in perl_run ()
#16 0x0041a45c in main ()

The third time matches the first time.

I tried perl 5.8.5 from /usr/ports first, but that had the same problem.

Last but not least, I tried -Uusemymalloc but that didn't work either.

It's possible that this has something to do

Re: Problems building perl on FreeBSD/amd64 5.2.1, 5.3-STABLE, and 6-CURRENT

2004-12-10 Thread Autrijus Tang
On Fri, Dec 10, 2004 at 09:53:18AM -0800, Mike Hunter wrote:
 I cannot compile a working perl binary for freebsd 5.2.1, 5.3, or 6.0 on
 amd64.  During the `make test` phase it gets into some kind of memory loop
 with Config.t:  It sits on this test with 99% cpu and ever-increasing memory
 until finally runnnig the machine out of ram.
 
 I notice at the end of the make command that I get the following unmappy news:
 
 Writing Makefile for Errno
 == Your Makefile has been rebuilt. ==
 == Please rerun the make command.  ==
 false
 *** Error code 1

I ran into the same symptom a few days back (also on amd64), and was
cured by running ntpdate to adjust my time to be newer than the
extracted files.

This may or may not be the same as your problem, but HTH. :)

Thanks,
/Autrijus/


pgpxswmG2SkzJ.pgp
Description: PGP signature


Re: [perl #7112] Bug: Win32 fails after 6 forks.

2004-12-03 Thread Andrew Savige
Steve Peters wrote:
 [Joe.Smith[at]inwap.com - Wed Jun 13 05:18:03 2001]:
 In reference to a USENET posting.
 
  Newsgroups: alt.perl
  Subject: Re: I can not fork at windows
  References: 992330594.302450[at]athnrd02.forthnet.gr
 
 $|= 1;
 for $var (1..3)
 {
  for (1..2)
  {
   if ( $pid=fork() )
   {
 print Parent $$ created child $pid\n ;
 sleep 1;
 waitpid($pid,0);
 exit 0;
   }
   elsif ( ! defined $pid )
   {
 die Can not go to multi thread mode\n
   }
   else
   {
 print Child $$ running\n;
   }
  }
  print \nThread team $var finished\n\n;
 }
 print Program $$ finished\n;

 I was able to replicate the failure with ActiveState Perl 5.8.4 Build
 810 on Windows XP.  Although I didn't get the nice failure above, it
 did complain loudly in a popup about writing to a null pointer.

This test program given also crashes the latest Perl 5.8.6.

I was able to get rid of the crashes by replacing:
  for (1..2)
above with:
  for my $z (1..2)
For more variety, if you add:
  local $% = 0;
as the first statement inside each loop, it not only crashes but
generates some:
  Atttempt to free unreferenced scalar
warnings for good measure.

I'm guessing that a localized built-in variable inside the inner loop
will be freed twice at end of scope: once by the original interpreter
and once by the cloned one.

I can't think of a way to simulate the above crash on Linux with plain
old ithreads; if you think of a way, please let me know. Maybe the
scenario above is impossible with plain ithreads?

/-\


Find local movie times and trailers on Yahoo! Movies.
http://au.movies.yahoo.com


[perl #7112] Bug: Win32 fails after 6 forks.

2004-11-29 Thread Steve Peters via RT
 [EMAIL PROTECTED] - Wed Jun 13 05:18:03 2001]:
 
 
 -
 [Please enter your report here]
 
 In reference to a USENET posting.
 
   Newsgroups: alt.perl
   Subject: Re: I can not fork at windows
   References: [EMAIL PROTECTED]
 
 $|= 1;
 for $var (1..3)
 {
 
  for (1..2)
  {
   if ( $pid=fork() )
   {
   print Parent $$ created child $pid\n ;
   sleep 1;
   waitpid($pid,0);
   exit 0;
 }
 elsif ( ! defined $pid )
 {
   die Can not go to multi thread mode\n
   }
   else
   {
   print Child $$ running\n;
   }
  }
  print \nThread team $var finished\n\n;
 }
 
 print Program $$ finished\n;
 
 
 When I run the program on Win98, I got this output and error alert:
 C:\TEMPperl temp.pl
 Parent 412345 created child -326661
 Child -326661 running
 Parent -326661 created child -327257
 Child -327257 running
 
 Thread team 1 finished
 
 Parent -327257 created child -326241
 Child -326241 running
 Parent -326241 created child -325225
 Child -325225 running
 
 Thread team 2 finished
 
 Parent -325225 created child -324209
 Child -324209 running
 Child -298617 running
 
 Thread team 3 finished
 
 Parent -324209 created child -298617
 Program -298617 finished
 
   PERL caused an invalid page fault in
   module PERL56.DLL at 0167:28073b9f.
   Registers:
   EAX=0001 CS=0167 EIP=28073b9f EFLGS=00010202
   EBX=02bc5420 SS=016f ESP=03cdfe54 EBP=03cdfe58
   ECX=01663db0 DS=016f ESI=02bc5408 FS=6d97
   EDX=81c433ec ES=016f EDI=02bc5480 GS=
   Bytes at CS:EIP:
   8b 50 fc 6a 01 59 84 d1 74 67 83 65 08 00 53 8b
   Stack dump:
   01663db0 03cdfea8 28074b46 0001 2806fdfc 01662254 0001
   2800e9c5 0001 02bc5420 02bcf020 00ff 280581f2 02bcf020
   02bc5420 02bcf020
 
 

I was able to replicate the failure with ActiveState Perl 5.8.4 Build
810 on Windows XP.  Although I didn't get the nice failure above, it did
complain loudly in a popup about writing to a null pointer.





Re: [offtopic] @perl.org lists (was: Re: Actually a Perl 6 suggestion)

2000-07-25 Thread Peter Haworth

Yitzchak Scott-Thoennes wrote:
 In article [EMAIL PROTECTED],
 Bart Schuller [EMAIL PROTECTED] wrote:
  On Mon, Jul 24, 2000 at 03:00:09PM -0700, Alan Burlison wrote:
   I've tried sending several subscribe messages to
   [EMAIL PROTECTED], but I don't even get a reply.  How on
   earth do I get on the list?
  
  To my surprise it uses the real host your mail is coming from by
  default, not what your "From:" header says.
 
 I think all the perl.org lists (certainly perl5-porters) also do this.
 It drove me crazy when I was using an account to send mail different
 from my account to receive it.  I assume this is ezmlm's doing.
 Anybody care to justify this feature?

It means that ezmlm doesn't have to parse the request message you send it. In
fact, it doesn't even have to read it. You can subscribe a different address by
sending to bootstrap-subscribe-whatever, if your envelope address isn't what
you want.

-- 
Peter Haworth   [EMAIL PROTECTED]
"Perl combines all of the worst aspects of BASIC, C and line noise."
-- Keith Packard [EMAIL PROTECTED]




Actually a Perl 6 suggestion

2000-07-21 Thread Ben Tilly

I am not on the bootstrap list, nor do I think that I would probably have 
too much to contribute at this point.

But I do have one crazy idea to throw out for people on that list to think 
about.

Would you consider cleanly separating the front-end parser from the back-end 
interpreter and make the front-end pluggable?  I know that it would take a 
lot of work, and de-integrating the two imposes some development 
considerations (for instance eval would need to know about your current 
front-end that you are using).  But taking that step would do an awful lot 
of interesting things.

The biggest single one is internationalization.  Today if you go to a 
country like India, Japan, or China you will find that any and all 
programming tasks are done in English.  This has enormous consequences on 
the use of computers in these places.  With a pluggable front-end, Perl 
could be a key enabling technology in the ongoing internationalization of 
computing.

Now I know all of the problems with doing this.  I understand full well the 
potential for fragmenting the Perl community with different dialects of the 
language.  In many ways it is a bad idea.  However it is a bad idea whose 
time has come.  Like it or not, internationalization is coming, and people 
will want to use computers in their native languages.  The first language 
that allows people to address simple problems in their native language with 
a large number of add-ins will be hugely useful and gain a lot of mindshare. 
  I see no particular reason why Perl should not be that language.

Besides which, wouldn't it be amusing to have a pluggable front-end for 
parsing Java byte-code? :-)

And even more amusing to have a front-end that looks a lot like Python.. :-)

Cheers,
Ben

Get Your Private, Free E-mail from MSN Hotmail at http://www.hotmail.com