From a7ec2332ab71f8c802ddfbef6fc04ba8efa21794 Mon Sep 17 00:00:00 2001
From: leto <leto@29942e26-f7dc-dc11-b955-0002b3153201>
Date: Sun, 2 Mar 2008 17:08:16 +0000
Subject: [PATCH] perl error

git-svn-id: file:///usr/local/svn/util/trunk@18 29942e26-f7dc-dc11-b955-0002b3153201
---
 examples/spurious_perl_error.pl | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)
 create mode 100755 examples/spurious_perl_error.pl

diff --git a/examples/spurious_perl_error.pl b/examples/spurious_perl_error.pl
new file mode 100755
index 0000000..60e6749
--- /dev/null
+++ b/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) };
+