diff options
| author | pad <pad@mandriva.com> | 1999-08-31 16:13:05 +0000 |
|---|---|---|
| committer | pad <pad@mandriva.com> | 1999-08-31 16:13:05 +0000 |
| commit | 290e279a5c8ca9fd0533264f57d4df58b7431de3 (patch) | |
| tree | fc7609ad90e5a312dc707a36f165503857d5a956 /perl-install/interactive.pm | |
| parent | 37887364fd5eb4d86639f021fb5b241343a0c059 (diff) | |
| download | drakx-290e279a5c8ca9fd0533264f57d4df58b7431de3.tar drakx-290e279a5c8ca9fd0533264f57d4df58b7431de3.tar.gz drakx-290e279a5c8ca9fd0533264f57d4df58b7431de3.tar.bz2 drakx-290e279a5c8ca9fd0533264f57d4df58b7431de3.tar.xz drakx-290e279a5c8ca9fd0533264f57d4df58b7431de3.zip | |
test1 du pad
Diffstat (limited to 'perl-install/interactive.pm')
| -rw-r--r-- | perl-install/interactive.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm index 70f54b57b..8c4bf24db 100644 --- a/perl-install/interactive.pm +++ b/perl-install/interactive.pm @@ -27,7 +27,8 @@ use common qw(:common :functional); 1; -sub new($$) { + +sub new($) { my ($type) = @_; bless {}, ref $type || $type; |