Help for this page

Select Code to Download


  1. or download this
    sub x{ wantarray ? 'fred' : @_[ 0 .. $#_ ]; }

...

print scalar( x( 1, 2, 3 ) );;
3
  2. or download this
        if (GIMME != G_ARRAY) {
        if (++MARK <= SP)
            *MARK = *SP;