Path: utzoo!attcan!uunet!samsung!usc!wuarchive!udel!haven!usenet
From: louie@sayshell.umd.edu (Louis A. Mamakos)
Newsgroups: comp.lang.perl
Subject: defined() operator in patchlevel 27
Message-ID: <1990Aug13.145810.25010@haven.umd.edu>
Date: 13 Aug 90 14:58:10 GMT
Sender: usenet@haven.umd.edu (USENET News Posting)
Organization: The University of Maryland, College Park
Lines: 38


I noticed that a perl script that I had stopped working under patchlevel 27.  It
seems like the defined() operator is working differently than it did before.

try this out:

#!/usr/local/bin/perl

if (defined(@foo)) {
	print "defined\n";
} else {
	print "not defined\n";
}

undef @foo;

if (defined(@foo)) {
	print "defined\n";
} else {
	print "not defined\n";
}

__END__


and you'll get

defined
not defined

printed at you.  Patchlevel 18 gives

not defined
not defined

This is on a NeXT workstation, and all tests passed just fine.

louie