You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
17 lines
310 B
17 lines
310 B
#!/usr/bin/perl -w
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
# Why does this produce a warning *and* the expected behavior?
|
|
|
|
# Useless use of private variable in void context at ./spurious_perl_error.pl line 8.
|
|
# woohoo!
|
|
|
|
my ($x,$y) = (3,4);
|
|
|
|
if ( ($x,$y) == pair() ) {
|
|
print "woohoo!\n";
|
|
}
|
|
sub pair { return (3,4) };
|
|
|
|
|