Mailinglist Archive: yast-commit (711 mails)

[mvidner@xxxxxxxxxxxxxxxx]

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@xxxxxxx
+
+- Fixed some perl warnings in ydoc2.
+
+-------------------------------------------------------------------
 Wed Jun  4 13:36:32 CEST 2008 - mvidner@xxxxxxx
 
 - 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@xxxxxxxxxxxx
For additional commands, e-mail: yast-commit+help@xxxxxxxxxxxx