From 089376cf52cdafde9c394aa59df6abcb2108dfed Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.com>
Date: Thu, 18 Oct 2007 09:38:39 +0000
Subject: make warn messages less verbose

---
 draklive | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/draklive b/draklive
index ee64db8..b0b986c 100755
--- a/draklive
+++ b/draklive
@@ -964,7 +964,7 @@ sub prepare_bootloader {
         cp_f(glob_(get_system_root($live) . "/usr/share/gfxboot/themes/$theme->{name}/*"), $syslinux_dir);
     }
     my $bootlogo = $syslinux_dir . '/bootlogo';
-    warn "unable to find gfxboot splash ($bootlogo)" if ! -f $bootlogo;
+    warn "unable to find gfxboot splash ($bootlogo)\n" if ! -f $bootlogo;
     output_p($syslinux_dir . '/gfxboot.cfg', "livecd=1\n");
 
     run_({ root => get_system_root($live) }, '/usr/sbin/grub-gfxmenu', '--update-gfxmenu');
@@ -1086,7 +1086,7 @@ sub create_master {
     if (my $create = get_boot_setting($live->{media}, 'create', $opts)) {
         $create->($live, $opts);
     } else {
-        warn "not implemented yet";
+        warn "not implemented yet\n";
     }
 }
 
@@ -1117,7 +1117,7 @@ sub format_device {
     if (my $format = get_boot_setting($live->{media}, 'format', $opts)) {
         $format->($live, $opts);
     } else {
-        warn "not implemented yet";
+        warn "not implemented yet\n";
     }
 }
 
@@ -1184,7 +1184,7 @@ sub record_usb_master {
             unlink $grub_device_map;
         }
     } else {
-        warn "not running $bootloader on non block device $device";
+        warn "not running $bootloader on non block device $device\n";
     }
 
     do {
@@ -1233,7 +1233,7 @@ sub record_master {
     if (my $record = get_boot_setting($live->{media}, 'record', $opts)) {
         $record->($live, $opts);
     } else {
-        warn "not implemented yet";
+        warn "not implemented yet\n";
     }
 }
 
@@ -1246,7 +1246,7 @@ sub pipe_subs {
         POSIX::dup2($r, 0) or die "couldn't dup2: $!\n";
         POSIX::close($r);
         $reader->();
-        POSIX::close(0) or warn "writer exited $?";
+        POSIX::close(0) or warn "writer exited $?\n";
         POSIX::dup2($stdin, 0) or die "couldn't dup2: $!\n";
         waitpid($pid, 0);
     } else {
@@ -1265,7 +1265,7 @@ sub record_onthefly {
 
     my $record = get_storage_setting($live->{media}, 'record');
     unless ($record) {
-        warn "not implemented yet";
+        warn "not implemented yet\n";
         return;
     }
     if (my $create = get_storage_setting($live->{media}, 'record_needs_master') && get_storage_setting($live->{media}, 'create')) {
@@ -1428,7 +1428,7 @@ sub read_config {
 sub check_config {
     my ($live) = @_;
     unless (keys(%$live)) {
-        warn 'no live definition';
+        warn "no live definition\n";
         Pod::Usage::pod2usage();
     }
     #- check for minimum requirements
-- 
cgit v1.2.1