perl error

git-svn-id: file:///usr/local/svn/util/trunk@18 29942e26-f7dc-dc11-b955-0002b3153201

examples/spurious_perl_error.pl

@@ -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) };
+