*** FlowchartPlugin.pm	Thu Oct 19 15:01:17 2006
--- FlowchartPlugin.pm.bad	Thu Oct 19 14:53:30 2006
***************
*** 232,238 ****
        $title .= $1;
      }
      #if ( $line =~ m/^[ ][ ][ ]\*\s*(.+?[^ ])\s*:\s*(.+[^ ])\s*/ ) { # Não tá funcionando Porra!
!     if ( $line =~ m/^\s*\*\s*(.+?[^ ])\s*:\s*(.+[^ ])\s*/ ) { # Isso tá errado e funciona. Merda!
        $id = $2       if ( lc($1) eq 'id' );
        $type = $2     if ( lc($1) eq 'type' );
        $goto = $2     if ( lc($1) eq 'goto' );
--- 232,238 ----
        $title .= $1;
      }
      #if ( $line =~ m/^[ ][ ][ ]\*\s*(.+?[^ ])\s*:\s*(.+[^ ])\s*/ ) { # Não tá funcionando Porra!
!     if ( $line =~ m/^\s\*\s*(.+?[^ ])\s*:\s*(.+[^ ])\s*/ ) { # Isso tá errado e funciona. Merda!
        $id = $2       if ( lc($1) eq 'id' );
        $type = $2     if ( lc($1) eq 'type' );
        $goto = $2     if ( lc($1) eq 'goto' );
***************
*** 246,254 ****
    my $error = '';
    my $svg = &montaSVG($topic, $web);
    my $mapImg = &montaMapImg($topic, $web, $percentReduce);
-   unless(-d $myPub) { mkdir($myPub,0775) }
    TWiki::Func::saveFile( "$myPub/flowchart_$topic.svg", $svg );
    TWiki::Func::saveFile( "$myPub/flowchartMapImg_$topic.txt", $mapImg );
    system ("convert", "$myPub/flowchart_$topic.svg",
            '-resize', $percentReduce.'%x'.$percentReduce.'%', "$myPub/flowchart_$topic.png");
  }
--- 246,254 ----
    my $error = '';
    my $svg = &montaSVG($topic, $web);
    my $mapImg = &montaMapImg($topic, $web, $percentReduce);
    TWiki::Func::saveFile( "$myPub/flowchart_$topic.svg", $svg );
    TWiki::Func::saveFile( "$myPub/flowchartMapImg_$topic.txt", $mapImg );
+   system ("mkdir", "$myPub");
    system ("convert", "$myPub/flowchart_$topic.svg",
            '-resize', $percentReduce.'%x'.$percentReduce.'%', "$myPub/flowchart_$topic.png");
  }