More stuff

21 years ago · a7af2cf254
3 changed files with 3 additions and 5 deletions
--- a/3
+++ b/3
@ -29,12 +29,11 @@ BEGIN {
    my $fhs = grep(/\/usr\/share\/perl5/,@INC);


-    unshift(@INC,".");  # better make sure we mean . when we mean .
-
    if ($fhs == 0) {
 	unshift(@INC,"/usr/share/perl5");
    }

+    unshift(@INC,".");  # better make sure we mean . when we mean .

    my $sbin = grep(/\/sbin/,$ENV{'PATH'});
    if ($sbin == 0) {
--- a/3
+++ b/3
@ -220,12 +220,11 @@ BEGIN {

    my $fhs = grep(/\/usr\/share\/perl5/,@INC);

-    unshift(@INC,".");  # better make sure we mean . when we mean .
-
    if ($fhs == 0) {
 	unshift(@INC,"/usr/share/perl5");
    }

+    unshift(@INC,".");  # better make sure we mean . when we mean .

    my $sbin = grep(/\/sbin/,$ENV{'PATH'});
    if ($sbin == 0) {
--- a/2
+++ b/2
@ -36,12 +36,12 @@ BEGIN {

    my $fhs = grep(/\/usr\/share\/perl5/,@INC);

-    unshift(@INC,".");  # better make sure we mean . when we mean .

    if ($fhs == 0) {
 	unshift(@INC,"/usr/share/perl5");
    }

+    unshift(@INC,".");  # better make sure we mean . when we mean .

    my $sbin = grep(/\/sbin/,$ENV{'PATH'});
    if ($sbin == 0) {