2113cfe2a0
- Improved syntax highlight. - Reduce memory usage. - Updated document and translation. - bug fix.
41 lines
1.2 KiB
Text
41 lines
1.2 KiB
Text
$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};
|