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;