diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2002-07-04 22:17:39 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2002-07-04 22:17:39 +0000 |
commit | b5b714420602230508f199cb392d21c4410a4f1d (patch) | |
tree | a9d36963c5263526a65c0687333f817864fb483e | |
parent | 6410148f76cd33ac44501173be0464b748aae5d2 (diff) | |
download | drakx-backup-do-not-use-b5b714420602230508f199cb392d21c4410a4f1d.tar drakx-backup-do-not-use-b5b714420602230508f199cb392d21c4410a4f1d.tar.gz drakx-backup-do-not-use-b5b714420602230508f199cb392d21c4410a4f1d.tar.bz2 drakx-backup-do-not-use-b5b714420602230508f199cb392d21c4410a4f1d.tar.xz drakx-backup-do-not-use-b5b714420602230508f199cb392d21c4410a4f1d.zip |
create symlink list_modules.pm in current directory for testing purpose
-rwxr-xr-x | perl-install/install2 | 6 |
1 files changed, 6 insertions, 0 deletions
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; |