Looking again, I see you are right. Whilst related, they are not the same usage.
By way of penance:
sub swap{
our($a,$b);
local( *a, *b ) = \( @_ );
($a, $b ) = ( $b, $a )
}
my( $x, $y ) = ( 1, 'fred' );
swap( $x, $y );
print "$x, $y";;
fred, 1
print swap( 1, 'fred' );;
fred 1
With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'
Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
"Science is about questioning the status quo. Questioning authority".
In the absence of evidence, opinion is indistinguishable from prejudice.
RIP Neil Armstrong
|