callisto-debian/gimp
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

see plug-ins/perl/Changes

Browse Source
This commit is contained in:
Marc Lehmann
1999-03-12 20:37:06 +00:00
parent f3d1c7ef7d
commit 2ac00ed432
16 changed files with 399 additions and 72 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
plug-ins/perl/examples/perlcc
View File

@ -44,7 +44,7 @@ sub generate_log {
$log.=sprintf "%-16s %-5s %s\n", 'File','Fatal', 'Message';
for (split /\x00/,Gimp->get_data ('gimp-perl-log')) {
my ($file,$function,$msg,$installed)=split /\x01/;
@msg = split /\n/,Gimp::wrap_text ($msg.($function ? " ($function)" : ""),56);
@msg = split /\n/,Gimp::wrap_text ($msg.($function ? " ($function)" : ""),55);
$log.=sprintf "%-16s %-5s %s\n",$file,$installed ? 'Yes':'No',shift(@msg);
while(@msg) {
$log.=sprintf "%-16s %-5s %s\n",'','+->',shift(@msg);