From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 26 Jan 2007 15:40:58 +0000 (+0200)
Subject: still some Symbian/S90 tweaks
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5909b2ae83b782be73778dd9436dc31be4d39529;p=p5sagit%2Fp5-mst-13.2.git

still some Symbian/S90 tweaks
Message-Id: <20070126134058.83B0643A57@anubis.hut.fi>

p4raw-id: //depot/perl@30009
---

diff --git a/README.symbian b/README.symbian
index 040b37a..b96a911 100644
--- a/README.symbian
+++ b/README.symbian
@@ -402,7 +402,7 @@ We maintain the binary incompatibility.
 
 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
diff --git a/symbian/config.sh b/symbian/config.sh
index 5645808..5a1b811 100644
--- a/symbian/config.sh
+++ b/symbian/config.sh
@@ -765,7 +765,7 @@ uquadtype='uint64_t'
 use5005threads='undef'
 use64bitall='undef'
 use64bitint='undef'
-usecrosscompile='define'
+usecrosscompile='undef'
 usedl='undef'
 usefaststdio='undef'
 useithreads='undef'
diff --git a/symbian/xsbuild.pl b/symbian/xsbuild.pl
index 5fbf4ae..939b569 100644
--- a/symbian/xsbuild.pl
+++ b/symbian/xsbuild.pl
@@ -6,7 +6,7 @@ use Getopt::Long;
 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 @@ sub xsconfig {
         }
     }
     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);