From 28d4952a757d83f8d90b3d0062f4aa169a399694 Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Thu, 21 Sep 2000 14:52:51 +0000 Subject: *** empty log message *** --- perl-install/Xconfigurator.pm | 2 +- perl-install/any.pm | 69 ++++++++++++++++++++++++++++++++++++++----- 2 files changed, 63 insertions(+), 8 deletions(-) diff --git a/perl-install/Xconfigurator.pm b/perl-install/Xconfigurator.pm index 6dd6efd05..6ce395a06 100644 --- a/perl-install/Xconfigurator.pm +++ b/perl-install/Xconfigurator.pm @@ -298,7 +298,7 @@ NOTE THIS IS EXPERIMENTAL SUPPORT AND MAY FREEZE YOUR COMPUTER.", $xf3_ver)) . " #- hack for ATI Mach64 card where two options should be used if using Utah-GLX. - if ($card->{type} =~ /ATI Mach64/) { + if ($card->{identifier} =~ /3D Rage Pro AGP/) { $card->{options_xf3}{no_font_cache} = $card->{Utah_glx}; $card->{options_xf3}{no_pixmap_cache} = $card->{Utah_glx}; } diff --git a/perl-install/any.pm b/perl-install/any.pm index fa19cae21..5094c9939 100644 --- a/perl-install/any.pm +++ b/perl-install/any.pm @@ -361,21 +361,19 @@ END 'ABORT' 'Invalid Login' 'ABORT' 'Login incorrect' '' 'ATZ' -'OK' END if ($modem->{special_command}) { print CHAT <{special_command}' -'OK' +'OK' '$modem->{special_command}' END } print CHAT <{auth} eq 'Terminal-based' || $modem->{auth} eq 'Script-based') { print CHAT <{prefix}, "$ENV{SHARE_PATH}/kppprc.in", ".kde/share/config/kppprc", 1, %toreplace); + #- install kppprc file according to used configuration. commands::mkdir_("-p", "$prefix/usr/share/config"); - template2file("$ENV{SHARE_PATH}/kppprc.in", "$prefix/usr/share/config/kppprc", %toreplace); + local *KPPPRC; + open KPPPRC, ">$prefix/usr/share/config/kppprc" or die "Can't open $prefix/usr/share/config/kppprc: $!"; + print KPPPRC <