From 43bd0973ef002e665f4f2a0a7226243ec86ef6ff Mon Sep 17 00:00:00 2001
From: mertz
Date: Tue, 4 Nov 2003 12:30:08 +0000
Subject: a better integration of contributed demos, boosted par "zentara" demo

---
 Perl/demos/zinc-demos | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'Perl')

diff --git a/Perl/demos/zinc-demos b/Perl/demos/zinc-demos
index 995b178..907dc99 100644
--- a/Perl/demos/zinc-demos
+++ b/Perl/demos/zinc-demos
@@ -38,7 +38,7 @@ $MW->configure(-menu => my $menubar = $MW->Menu);
 
     sub new {
 	my ($name) = $::DEMO_FILE =~ m#([^/]+).pl$#;
-	$::MW->WidgetDemo(-name => $name, -text => $::DEMO_DESCRIPTION{$name});
+	$::MW->WidgetDemo(-name => $name, -text => $::DEMO_DESCRIPTION{$name} || "" );
     }
 }
 
@@ -215,7 +215,7 @@ while ($_ = shift @dirent) {
 	next;
     }
     my($name) = /^(.*)\.pl$/;
-    $_ = <C>;
+    $_ = <C>; $_ = <C>; 
     my($title) = /^#\s*(.*)$/;
     $DEMO_DESCRIPTION{$name} = $title;
     close C;
-- 
cgit v1.1