28 lines
1.0 KiB
Plaintext
28 lines
1.0 KiB
Plaintext
$OpenBSD: patch-install_me,v 1.2 2003/11/28 00:06:59 margarida Exp $
|
|
--- install.me.orig 2003-11-27 23:55:32.000000000 +0000
|
|
+++ install.me 2003-11-27 23:56:44.000000000 +0000
|
|
@@ -427,9 +427,6 @@ my $Root = '';
|
|
|
|
## Install files
|
|
## -------------
|
|
- my $plprefix = "#!$OptValues{'perl'}\n";
|
|
- $plprefix .= "use lib qw($OptValues{'libpath'});\n"
|
|
- if $OptValues{'libpath'};
|
|
my($file, $destfile);
|
|
if ($dobin) {
|
|
print STDOUT qq(Installing programs to "$OptValues{'binpath'}":\n);
|
|
@@ -442,11 +439,11 @@ my $Root = '';
|
|
$destfile = join('', $OptValues{'binpath'}, $DIRSEP, $file);
|
|
my $fulldestfile = apply_root($Root, $destfile);
|
|
print STDOUT $destfile, "\n";
|
|
- cp($_, $fulldestfile, $plprefix, $WINDOWS);
|
|
+ cp($_, $fulldestfile, '', $WINDOWS);
|
|
eval q{chmod 0755, $fulldestfile;};
|
|
if ($WINDOWS && $file !~ /\.pl$/i) {
|
|
$fulldestfile .= ".pl";
|
|
- cp($_, $fulldestfile, $plprefix);
|
|
+ cp($_, $fulldestfile, '');
|
|
eval q{chmod 0755, $fulldestfile;};
|
|
}
|
|
}
|