--- Emerge-Progress_0.1.5.perl	2005-04-23 02:20:47.000000000 +0200
+++ Emerge-Progress_0.1.6.perl	2005-04-25 12:42:42.254991504 +0200
@@ -1,5 +1,4 @@
 #!/usr/bin/perl
-# Versjon 0.1.2
 
 #use-stuff
 use utf8;
@@ -105,12 +104,11 @@
 {
 	my $fh = FileHandle->new;
 	$lastline = `tail -n1 $logfile`;
-	chomp($lastline);
+	chomp($lastline) or &error("Kunne ikke lese /var/log/emerge.log,\nEr du i portage-gruppen?");
 	if($_[0] eq 'emerge')
 	{
-		open($fh, q^tail -n100 "/var/log/emerge.log" | grep ">>> emerge"| sort -k7 -u| tail -n10|^) or &error;
+		open($fh, q^tail -n100 "/var/log/emerge.log" | grep ">>> emerge"| sort -k7 -u| tail -n10|^);
 	}
-	
 	$tag = Gtk2::Helper->add_watch ( $fh->fileno, 'in', sub
 	{
 		watcher_callback( $fh, $tag );
@@ -124,7 +122,7 @@
 	
 	if ( eof($fh))
 	{
-		Gtk2::Helper->remove_watch ($tag) or &error;
+		Gtk2::Helper->remove_watch ($tag) or &error("Kunne ikke gi slipp på Gtk2::Helper.");
 		close($fh);
 		return 1;
 	}
@@ -269,5 +267,14 @@
 
 sub error
 {
-	print 'Faen i helvete :)',"\n";
+	my $message = shift;
+	my $dialog = Gtk2::Dialog->new ('Feil!!', $window,
+								'destroy-with-parent',
+								'gtk-ok' => 'none');
+	my $label = Gtk2::Label->new ($message);
+	$dialog->vbox->add ($label);
+	$dialog->set('modal' => 1);
+	
+	$dialog->signal_connect (response => sub { $_[0]->destroy; Gtk2->main_quit; });
+	$dialog->show_all;
 }