Change 30009 by [EMAIL PROTECTED] on 2007/01/26 13:58:56

        Subject: [PATCH] still some Symbian/S90 tweaks
        From: [EMAIL PROTECTED] (Jarkko Hietaniemi)
        Date: Fri, 26 Jan 2007 15:40:58 +0200 (EET)
        Message-Id: <[EMAIL PROTECTED]>

Affected files ...

... //depot/perl/README.symbian#10 edit
... //depot/perl/symbian/config.sh#20 edit
... //depot/perl/symbian/xsbuild.pl#16 edit

Differences ...

==== //depot/perl/README.symbian#10 (text) ====
Index: perl/README.symbian
--- perl/README.symbian#9~29990~        2007-01-26 00:39:07.000000000 -0800
+++ perl/README.symbian 2007-01-26 05:58:56.000000000 -0800
@@ -402,7 +402,7 @@
 
 0.4.1: December 2006
 
-  - Perl 5.9.4 (patch level 29622)
+  - Perl 5.9.5 (patch level 30002)
   - added extensions: Compress/Raw/Zlib, Digest/SHA,
     Hash/Util, Math/BigInt/FastCalc, Text/Soundex, Time/Piece
   - port to S90 1.1 by alexander smishlajev

==== //depot/perl/symbian/config.sh#20 (text) ====
Index: perl/symbian/config.sh
--- perl/symbian/config.sh#19~29990~    2007-01-26 00:39:07.000000000 -0800
+++ perl/symbian/config.sh      2007-01-26 05:58:56.000000000 -0800
@@ -765,7 +765,7 @@
 use5005threads='undef'
 use64bitall='undef'
 use64bitint='undef'
-usecrosscompile='define'
+usecrosscompile='undef'
 usedl='undef'
 usefaststdio='undef'
 useithreads='undef'

==== //depot/perl/symbian/xsbuild.pl#16 (text) ====
Index: perl/symbian/xsbuild.pl
--- perl/symbian/xsbuild.pl#15~29990~   2007-01-26 00:39:07.000000000 -0800
+++ perl/symbian/xsbuild.pl     2007-01-26 05:58:56.000000000 -0800
@@ -6,7 +6,7 @@
 use File::Basename;
 use Cwd;
 
-unshift @INC, dirname $0 or '.';
+unshift @INC, dirname $0 || '.';
 do "sanity.pl" or die $@;
 
 my $CoreBuild = -d "ext" && -f "perl.h" && -d "symbian" && -f "perl.c";
@@ -509,14 +509,14 @@
         }
     }
     if ( my @c = glob("*.c *.cpp */*.c */*.cpp") ) {
-       @c = grep { ! m:^zlib-src/: } @c if $ext eq 'ext\Compress\Raw\Zlib';
+       map { s:^zlib-src/:: } @c if $ext eq 'ext\Compress\Raw\Zlib';
         for my $c (@c) {
             $c =~ s:/:\\:g;
             $src{$c}++;
         }
     }
     if ( my @h = glob("*.h */*.h") ) {
-        @h = grep { ! m:^zlib-src/: } @h if $ext eq 'ext\Compress\Raw\Zlib';
+        map { s:^zlib-src/:: } @h if $ext eq 'ext\Compress\Raw\Zlib';
         for my $h (@h) {
             $h =~ s:/:\\:g;
             $h = dirname($h);
End of Patch.

Reply via email to