Browse Source
git-svn-id: file:///usr/local/svn/util/trunk@18 29942e26-f7dc-dc11-b955-0002b3153201master
leto
16 years ago
1 changed files with 17 additions and 0 deletions
@ -0,0 +1,17 @@ |
|||||
|
#!/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) }; |
||||
|
|
Loading…
Reference in new issue