diff options
Diffstat (limited to 'Perl')
| -rw-r--r-- | Perl/demos/zinc-demos | 4 |
1 files changed, 2 insertions, 2 deletions
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; |