summaryrefslogtreecommitdiffstats
path: root/perl-install/Xconfigurator.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-04-14 23:59:01 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-04-14 23:59:01 +0000
commita4299593feb14ed8317da49980b8c06e59688aa2 (patch)
treecf2fea27a2884a3205a95d5c3042cdae91be7c66 /perl-install/Xconfigurator.pm
parent21066f8c4d8d136cca65f7138cabb25d4b4cfe8c (diff)
downloaddrakx-a4299593feb14ed8317da49980b8c06e59688aa2.tar
drakx-a4299593feb14ed8317da49980b8c06e59688aa2.tar.gz
drakx-a4299593feb14ed8317da49980b8c06e59688aa2.tar.bz2
drakx-a4299593feb14ed8317da49980b8c06e59688aa2.tar.xz
drakx-a4299593feb14ed8317da49980b8c06e59688aa2.zip
no_comment
Diffstat (limited to 'perl-install/Xconfigurator.pm')
-rw-r--r--perl-install/Xconfigurator.pm10
1 files changed, 0 insertions, 10 deletions
diff --git a/perl-install/Xconfigurator.pm b/perl-install/Xconfigurator.pm
index bd9cc7934..29c25ed49 100644
--- a/perl-install/Xconfigurator.pm
+++ b/perl-install/Xconfigurator.pm
@@ -19,16 +19,6 @@ my ($prefix, %monitors);
sub getVGAMode($) { $_[0]->{card}{vga_mode} || $vgamodes{"640x480x16"}; }
-sub setVirtual($) {
- my $vt = '';
- local *C;
- sysopen C, "/dev/console", 2 or die "failed to open /dev/console: $!";
- ioctl(C, c::VT_GETSTATE(), $vt) or die "ioctl VT_GETSTATE failed";
- ioctl(C, c::VT_ACTIVATE(), $_[0]) or die "ioctl VT_ACTIVATE failed";
- ioctl(C, c::VT_WAITACTIVE(), $_[0]) or die "ioctl VT_WAITACTIVE failed";
- unpack "S", $vt;
-}
-
sub readCardsDB {
my ($file) = @_;
my ($card, %cards);