openpkg-packages/js/js.patch

Index: JavaScript-1.08/Makefile.PL
--- JavaScript-1.08/Makefile.PL.orig	2008-05-08 15:23:20 +0200
+++ JavaScript-1.08/Makefile.PL	2008-05-09 06:58:41 +0200
@@ -93,7 +93,7 @@
 if (exists $ENV{JS_LIB}) {
     @libs = get_paths($ENV{JS_LIB});
     $ENV{DYLD_LIBRARY_PATH} = $ENV{LD_LIBRARY_PATH} = $ENV{JS_LIB};
-    $lib = "js";
+    $lib = "js -lm";
 }
 if (exists $ENV{JS_INC}) {
     @incs = get_paths($ENV{JS_INC});
@@ -108,7 +108,7 @@
     push @defines, "JS_THREADSAFE" if $ENV{JS_THREADSAFE};
 }
 else {
-    my $enable_threadsafe = prompt("Is your SpiderMonkey compiled with JS_THREADSAFE (most things will fail if you answer wrong)? [y/N]");
+    my $enable_threadsafe = 'n';
     push @defines, "JS_THREADSAFE" if $enable_threadsafe eq "y";
 }
 
@@ -117,7 +117,7 @@
     push @defines, "JS_C_STRINGS_ARE_UTF8" if $ENV{JS_UTF8};
 }
 else {
-    my $enable_utf8 = prompt("Is your SpiderMonkey compiled with support for unicode (t/23-unicode.t will fail if you answer wrong) ? [y/N]", "N");
+    my $enable_utf8 = 'n';
     push @defines, "JS_C_STRINGS_ARE_UTF8" if $enable_utf8 eq "y";
 }
 
@@ -129,7 +129,7 @@
     }
 }
 else {
-    my $enable_e4x = prompt("Do you want support for E4X (requires SpiderMonkey > 1.5) ? [y/N]", "N");
+    my $enable_e4x = 'n';
     if ($enable_e4x eq "y") {
         push @extra_headers, "jsxml";
         push @defines, "JS_ENABLE_E4X";     
@@ -167,7 +167,7 @@
     close $test_script;
 
     my $exe = tmpnam();;
-    my $cc = join(" ", $Config{cc}, $libs, @ccflags, "-l${lib}", "-o", $exe, (map { "-I$_" } @incs), "test_js.c");
+    my $cc = join(" ", $Config{cc}, @ccflags, (map { "-I$_" } @incs), "-o", $exe, "test_js.c", $libs, split(/\s+/, "-l${lib}"));
     qx($cc);
     if ($?) {
         print "Failed compiling test_js.c. ABORTING\n";
@@ -178,11 +178,6 @@
     # Get js version and require 1.7 or later
     my ($engine, $version, $date) = split/\s+/, qx($exe);
     my ($v2) = $version =~ /^(\d+\.\d+)/;
-    if ($v2 < 1.7) {
-        if (prompt("I require SpiderMonkey version 1.7 or later but found ${version}. Try anyways? [y/N]", "N") ne "y") {
-            exit 0;
-        }
-    }
 
     # Dispose temp stuff
     unlink($exe);
Index: JavaScript-SpiderMonkey-0.19/Makefile.PL
--- JavaScript-SpiderMonkey-0.19/Makefile.PL.orig	2007-06-08 21:03:08 +0200
+++ JavaScript-SpiderMonkey-0.19/Makefile.PL	2008-05-09 06:56:29 +0200
@@ -31,6 +31,7 @@
 );
 
 my %possible_install_paths = (
+  "../js/.libs"      => "../js/src",
   "../js/src/*"      => "../js/src",
   "/usr/lib"         => "/usr/include",
   "/usr/local/lib"   => "/usr/local/include",
@@ -142,7 +143,6 @@
     'NAME'		=> 'JavaScript::SpiderMonkey',
     'VERSION_FROM'	=> 'SpiderMonkey.pm', # finds $VERSION
     'PREREQ_PM'		=> {
-        'Log::Log4perl' => 0,
         'Data::Dumper'  => 0,
                            }, # e.g., Module::Name => 1.1
     ($] >= 5.005 ?    ## Add these new keywords supported since 5.005
Index: JavaScript-SpiderMonkey-0.19/SpiderMonkey.pm
--- JavaScript-SpiderMonkey-0.19/SpiderMonkey.pm.orig	2007-09-05 14:00:17 +0200
+++ JavaScript-SpiderMonkey-0.19/SpiderMonkey.pm	2008-05-09 06:56:29 +0200
@@ -75,7 +75,6 @@
 use strict;
 use warnings;
 use Data::Dumper;
-use Log::Log4perl qw(:easy);
 
 require Exporter;
 require DynaLoader;
@@ -577,14 +576,7 @@
 ##################################################
 sub debug_enabled {
 ##################################################
-    my $logger = Log::Log4perl::get_logger("JavaScript::SpiderMonkey");
-    if(Log::Log4perl->initialized() and $logger->is_debug()) {
-        # print "DEBUG IS ENABLED\n";
-        return 1;
-    } else {
-        # print "DEBUG IS DISABLED\n";
-        return 0;
-    }
+    return 0;
 }
 
 1;
Index: js-1.6.20070208/src/perlconnect/Makefile.PL.in
--- js-1.6.20070208/src/perlconnect/Makefile.PL.in.orig	2006-07-24 21:53:02 +0200
+++ js-1.6.20070208/src/perlconnect/Makefile.PL.in	2008-05-09 06:56:29 +0200
@@ -7,5 +7,6 @@
 	INC          => "-I..",
 	LIBS         => "-L../../.libs -ljs @LIBS@",
 	VERSION_FROM => 'JS.pm',
+	INSTALLDIRS  => 'vendor',
 );