diff options
| author | Larry Wall <lwall@netlabs.com> | 1993-10-07 23:00:00 +0000 |
|---|---|---|
| committer | Larry Wall <lwall@netlabs.com> | 1993-10-07 23:00:00 +0000 |
| commit | 79072805bf63abe5b5978b5928ab00d360ea3e7f (patch) | |
| tree | 96688fcd69f9c8d2110e93c350b4d0025eaf240d /lib/assert.pl | |
| parent | e334a159a5616cab575044bafaf68f75b7bb3a16 (diff) | |
| download | perl-79072805bf63abe5b5978b5928ab00d360ea3e7f.tar.gz | |
perl 5.0 alpha 2perl-5a2
[editor's note: from history.perl.org. The sparc executables
originally included in the distribution are not in this commit.]
Diffstat (limited to 'lib/assert.pl')
| -rw-r--r-- | lib/assert.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/assert.pl b/lib/assert.pl index cfda70cf29..0661d70af5 100644 --- a/lib/assert.pl +++ b/lib/assert.pl @@ -12,7 +12,7 @@ # routine shamelessly borrowed from the perl debugger. sub assert { - &panic("ASSERTION BOTCHED: $_[0]",$@) unless eval $_[0]; + &panic("ASSERTION BOTCHED: $_[$[]",$@) unless eval $_[$[]; } sub panic { |