Author: mvidner Date: Mon Jun 9 11:27:16 2008 New Revision: 48155 URL: http://svn.opensuse.org/viewcvs/yast?rev=48155&view=rev Log: Fixed some perl warnings in ydoc2. Modified: trunk/devtools/package/yast2-devtools.changes trunk/devtools/ydoc/src/ydoc2 Modified: trunk/devtools/package/yast2-devtools.changes URL: http://svn.opensuse.org/viewcvs/yast/trunk/devtools/package/yast2-devtools.changes?rev=48155&r1=48154&r2=48155&view=diff ============================================================================== --- trunk/devtools/package/yast2-devtools.changes (original) +++ trunk/devtools/package/yast2-devtools.changes Mon Jun 9 11:27:16 2008 @@ -1,4 +1,9 @@ ------------------------------------------------------------------- +Mon Jun 9 11:29:04 CEST 2008 - mvidner@suse.cz + +- Fixed some perl warnings in ydoc2. + +------------------------------------------------------------------- Wed Jun 4 13:36:32 CEST 2008 - mvidner@suse.cz - Make ycp_puttext reachable by y2tool (bnc#396315). Modified: trunk/devtools/ydoc/src/ydoc2 URL: http://svn.opensuse.org/viewcvs/yast/trunk/devtools/ydoc/src/ydoc2?rev=48155&r1=48154&r2=48155&view=diff ============================================================================== --- trunk/devtools/ydoc/src/ydoc2 (original) +++ trunk/devtools/ydoc/src/ydoc2 Mon Jun 9 11:27:16 2008 @@ -327,15 +327,13 @@ } elsif ($line =~ /\@note\s+(.*)/) { - $para = ""; $lastwas = "note"; - $para .= $1; + $para = $1; } - elsif ($line =~ /\@description\s+(.*)/ || $line =~ /\@description$/) + elsif ($line =~ /\@description\s*(.*)/) { - $para = ""; $lastwas = "description"; - $para .= $1; + $para = $1; } elsif($line =~ /\@see\s+(.*)/) { @@ -596,7 +594,7 @@ } } } - elsif ($lastwas == '') + elsif ($lastwas eq "") { $lastwas = "short"; $entry->{"short"} .= $line; @@ -770,6 +768,10 @@ sub dump_data { my $node = shift; + if (!defined($node)) + { + return; + } if (!ref ($node)) { -- To unsubscribe, e-mail: yast-commit+unsubscribe@opensuse.org For additional commands, e-mail: yast-commit+help@opensuse.org