From 8fc417ecdd8082f59c8cbc84eeeb194e9fee26ac Mon Sep 17 00:00:00 2001
From: radek <radek@pld-linux.org>
Date: Wed, 5 May 2004 17:13:54 +0000
Subject: [PATCH] - fixed bug, which could cause providing "perl()"

Changed files:
    perl.prov -> 1.10
---
 perl.prov | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/perl.prov b/perl.prov
index 21da4a8..a494480 100644
--- a/perl.prov
+++ b/perl.prov
@@ -31,9 +31,12 @@ use Safe;
 sub new {
 	my $class = shift;
 	my $self = {
-		inc => [ sort { length $b cmp length $a } grep m#^/#, @INC ],
+		inc => [
+			sort { length $b cmp length $a } grep m#^/#,
+			map { y#/#/#s; s#/$##; $_ } @INC
+		],
 		provide => {},
-		safe => Safe->new,
+		safe    => Safe->new,
 		@_,
 	};
 	bless $self, $class;
@@ -57,7 +60,7 @@ sub process_file {
 	# if the file lives under @INC, we can
 	# obtain the package name from it's path
 	for (@{ $self->{inc} }) {
-		if ($file =~ m#\Q$_\E/?(.+)$#) {    # we can't use ^ here
+		if ($file =~ m#\Q$_\E/(.+)$#) {    # we can't use ^ here
 			$package = $1;
 
 			if ($package !~ s/\.pm$//) {    # it's a *.pl
-- 
2.44.0