More stuff

This commit is contained in:
freesource
2003-02-25 18:55:18 +00:00
parent 9e8160f0ed
commit a7af2cf254
3 changed files with 3 additions and 5 deletions
+1 -2
View File
@@ -29,12 +29,11 @@ BEGIN {
my $fhs = grep(/\/usr\/share\/perl5/,@INC); my $fhs = grep(/\/usr\/share\/perl5/,@INC);
unshift(@INC,"."); # better make sure we mean . when we mean .
if ($fhs == 0) { if ($fhs == 0) {
unshift(@INC,"/usr/share/perl5"); unshift(@INC,"/usr/share/perl5");
} }
unshift(@INC,"."); # better make sure we mean . when we mean .
my $sbin = grep(/\/sbin/,$ENV{'PATH'}); my $sbin = grep(/\/sbin/,$ENV{'PATH'});
if ($sbin == 0) { if ($sbin == 0) {
+1 -2
View File
@@ -220,12 +220,11 @@ BEGIN {
my $fhs = grep(/\/usr\/share\/perl5/,@INC); my $fhs = grep(/\/usr\/share\/perl5/,@INC);
unshift(@INC,"."); # better make sure we mean . when we mean .
if ($fhs == 0) { if ($fhs == 0) {
unshift(@INC,"/usr/share/perl5"); unshift(@INC,"/usr/share/perl5");
} }
unshift(@INC,"."); # better make sure we mean . when we mean .
my $sbin = grep(/\/sbin/,$ENV{'PATH'}); my $sbin = grep(/\/sbin/,$ENV{'PATH'});
if ($sbin == 0) { if ($sbin == 0) {
+1 -1
View File
@@ -36,12 +36,12 @@ BEGIN {
my $fhs = grep(/\/usr\/share\/perl5/,@INC); my $fhs = grep(/\/usr\/share\/perl5/,@INC);
unshift(@INC,"."); # better make sure we mean . when we mean .
if ($fhs == 0) { if ($fhs == 0) {
unshift(@INC,"/usr/share/perl5"); unshift(@INC,"/usr/share/perl5");
} }
unshift(@INC,"."); # better make sure we mean . when we mean .
my $sbin = grep(/\/sbin/,$ENV{'PATH'}); my $sbin = grep(/\/sbin/,$ENV{'PATH'});
if ($sbin == 0) { if ($sbin == 0) {