Changeset 329

Show
Ignore:
Timestamp:
10/28/06 14:11:29 (2 years ago)
Author:
miya
Message:

Text::Trac: modify args passed to Macro::*.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • library/perl/trunk/Text-Trac/lib/Text/Trac/Macro.pm

    r328 r329  
    2323    foreach my $class ("Text::Trac::Macro::$macro", $macro) { 
    2424        if ( $class->require ) { 
    25             my $result = $class->process( $c, \@args ) || ''; 
     25            my $result = $class->process( $c, @args ) || ''; 
    2626            $l =~ s{$pattern}{$result}xmsg; 
    2727            last; 

  • library/perl/trunk/Text-Trac/lib/Text/Trac/Macro/HelloWorld.pm

    r328 r329  
    55 
    66sub process { 
    7     my ( $class, $c, $args ) = @_; 
    8     return "Hello World, args = " . join ', ', @$args; 
     7    my ( $class, $c, @args ) = @_; 
     8    return "Hello World, args = " . join ', ', @args; 
    99} 
    1010