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-07-27 13:56:32 +00:00
parent 851475b639
commit b7eceb6975
8 changed files with 2588 additions and 27 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
plug-ins/perl/Gimp/Pod.pm
View File

@ -40,8 +40,8 @@ sub new {
sub _cache {
my $self = shift;
my $fmt = shift;
local $^W = 0;
if (!$self->{doc}{$fmt} && $converter{$fmt}) {
local $^W = 0;
my $doc = $converter{$fmt}->($self->{path});
undef $doc if $?>>8;
undef $doc if $doc=~/^[ \t\r\n]*$/;
@ -66,10 +66,12 @@ sub section {
my $self = shift;
my $doc = $self->_cache('text');
($doc) = $$doc =~ /^$_[0]$(.*?)^[A-Z]/sm;
$doc =~ y/\r//d;
$doc =~ s/^\s*\n//;
$doc =~ s/[ \t\r\n]+$/\n/;
$doc =~ s/^ //mg;
if ($doc) {
$doc =~ y/\r//d;
$doc =~ s/^\s*\n//;
$doc =~ s/[ \t\r\n]+$/\n/;
$doc =~ s/^ //mg;
}
$doc;
}