From b5b714420602230508f199cb392d21c4410a4f1d Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 4 Jul 2002 22:17:39 +0000
Subject: create symlink list_modules.pm in current directory for testing
 purpose

---
 perl-install/install2 | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'perl-install/install2')

diff --git a/perl-install/install2 b/perl-install/install2
index 8921e5db7..b26684f9f 100755
--- a/perl-install/install2
+++ b/perl-install/install2
@@ -21,6 +21,12 @@
 use diagnostics;
 use strict;
 
+BEGIN {
+    #- for testing purpose
+    (my $f = __FILE__) =~ s|install2$|list_modules.pm|;
+    -e $f or symlink '../kernel/list_modules.pm', $f;
+}
+
 use lib qw(/usr/bin/perl-install .);
 use install2;
 
-- 
cgit v1.2.1