From 6f053d8213b782acefdaac6a9ecf143c6f9e385b Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 28 Jan 2000 01:05:35 +0000
Subject: no_comment

---
 perl-install/install_steps_gtk.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/install_steps_gtk.pm')

diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm
index a77333b21..d3b3954b4 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -199,7 +199,7 @@ sub new($$) {
 		my $dir = "/usr/X11R6/bin";
 		unless (-x "$dir/XF86_$_") {
 		    unlink $_ foreach glob_("$dir/XF86_*");
-		    local *F; open F, ">$dir/XF86_$_" or die '';
+		    local *F; open F, ">$dir/XF86_$_" or die "failed to write server: $!";
 		    local $/ = \ (16 * 1024);
 		    my $f = install_any::getFile("$dir/XF86_$_") or next;
 		    syswrite F, $_ foreach <$f>;
-- 
cgit v1.2.1