gtk-demo: Fix geniclude.pl.in to not look for extra files

This was supposed to be fixed in
0866772819 but I fixed the generated
geninclude.pl. Oops.
This commit is contained in:
Benjamin Otte 2013-02-02 00:21:15 +01:00
parent bc473257c7
commit 5607a2125f

View File

@ -24,20 +24,13 @@ for $file (@ARGV) {
open INFO_FILE, $file or die "Cannot open '$file'\n";
$title = <INFO_FILE>;
$title =~ s@^\s*/\*\s*@@;
$extra = "";
if ($title =~ /^(.*)::(.*)$/) {
$title = $1;
$extra = " $2";
}
$title =~ s@\s*$@@;
$extra =~ s@^\s*@@;
$extra =~ s@\s*$@@;
close INFO_FILE;
print "GtkWidget *do_$basename (GtkWidget *do_widget);\n";
push @demos, {"name" => $basename, "title" => $title, "file" => "$file $extra",
push @demos, {"name" => $basename, "title" => $title, "file" => "$file",
"func" => "do_$basename"};
}