blob: c3c1de4064c293f919420cc410de67488c17a9f0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
$NetBSD: patch-aa,v 1.3 2011/10/12 15:51:52 hiramatsu Exp $
Remove special wxPerl handling on MacOS X - pkgsrc' perl can do it self
--- script/padre.orig 2011-07-26 12:37:43.000000000 +0000
+++ script/padre
@@ -11,34 +11,6 @@ local $SIG{__DIE__} =
? sub { print STDERR Carp::longmess "\nDIE: @_\n" . ( "-" x 80 ) . "\n" }
: $SIG{__DIE__};
-# Must run using wxPerl on OS X.
-if ( $^O eq 'darwin' and $^X !~ m{/wxPerl} ) {
- require File::Which;
- require File::Basename;
- require File::Spec;
-
- my $this_perl = File::Which::which($^X) || $^X;
- if ( -l $this_perl ) {
- my $link = readlink $this_perl;
- $this_perl = $link if $link;
- }
-
- my $dir = File::Basename::dirname($this_perl);
- my $wx_perl = File::Spec->catfile( $dir, 'wxPerl' );
- my $perl =
- $wx_perl && -e $wx_perl && -x _
- ? $wx_perl
- : File::Which::which('wxPerl');
- chomp($perl);
- if ( -e $perl ) {
- warn "spawning 'wxPerl' interpreter for OS X\n";
- system( $perl, '-S', $0, @ARGV );
- } else {
- warn "padre cannot find wxPerl executable (which it requires on OS X)\n";
- }
- exit 0;
-}
-
# Disable overlay scrollbar on Linux.
# Done ugly this way to satisfy Perl::Critic (grrr)
local $ENV{LIBOVERLAY_SCROLLBAR} = ( $^O eq 'linux' ) ? 0 : $ENV{LIBOVERLAY_SCROLLBAR};
|
