blob: 92a9da397998a6c912b044c07bbed408898054a8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
$NetBSD: patch-ab,v 1.1 2010/02/25 13:32:50 sno Exp $
--- lib/Padre/Perl.pm.orig 2010-02-18 10:09:59.000000000 +0000
+++ lib/Padre/Perl.pm
@@ -136,7 +136,7 @@ sub cperl {
if ( $path =~ s/\b(wxPerl)\z// ) {
# Convert to non-GUI
- if ( -f "${path}perl" ) {
+ if ( -x "${path}perl" ) {
return "${path}perl";
} else {
return "${path}wxPerl";
@@ -193,7 +193,7 @@ sub wxperl {
if ( $path =~ s/\b(perl)\z// ) {
# Convert to Wx launcher
- if ( -f "${path}wxPerl" ) {
+ if ( -x "${path}wxPerl" ) {
return "${path}wxPerl";
} else {
return "${path}perl";
|