From 3412e21e32e68efeae0b3ce25bf4f0b4cc306934 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 13 Jan 2003 07:52:57 +0000 Subject: add support for zip drives --- perl-install/harddrake/data.pm | 1 + 1 file changed, 1 insertion(+) (limited to 'perl-install/harddrake') diff --git a/perl-install/harddrake/data.pm b/perl-install/harddrake/data.pm index 8f2a734f7..3e840173a 100644 --- a/perl-install/harddrake/data.pm +++ b/perl-install/harddrake/data.pm @@ -25,6 +25,7 @@ sub unknown { our @tree = ( [ "FLOPPY", "Floppy", "floppy.png", "", \&detect_devices::floppies, 0 ], + [ "ZIP", "Zip", "floppy.png", "", \&detect_devices::zips, 0 ], [ "HARDDISK", "Disk", "harddisk.png", "$sbindir/diskdrake", \&detect_devices::hds, 1 ], [ "CDROM", "CDROM", "cd.png", "", sub { grep { !(detect_devices::isBurner($_) || detect_devices::isDvdDrive($_)) } &detect_devices::cdroms }, 0 ], [ "BURNER", "CD/DVD burners", "cd.png", "", \&detect_devices::burners(), 0 ], -- cgit v1.2.1