diff options
| author | Bram <p5p@perl.wizbit.be> | 2009-07-25 00:32:25 +0200 |
|---|---|---|
| committer | Vincent Pit <perl@profvince.com> | 2009-07-25 15:55:04 +0200 |
| commit | 7eedc5ec657fbec215a6bd7fef317d31b8aaa82f (patch) | |
| tree | 6d088845fc296b31503d916a1a405993e2bd6432 /lib/perl5db/t | |
| parent | 85bdf03b25729816eedfea55a7f2c32c4bb80fba (diff) | |
| download | perl-7eedc5ec657fbec215a6bd7fef317d31b8aaa82f.tar.gz | |
Add test case for [perl #61222] + a test case for proxy constant subroutines
Diffstat (limited to 'lib/perl5db/t')
| -rw-r--r-- | lib/perl5db/t/proxy-constants | 9 | ||||
| -rw-r--r-- | lib/perl5db/t/rt-61222 | 10 |
2 files changed, 19 insertions, 0 deletions
diff --git a/lib/perl5db/t/proxy-constants b/lib/perl5db/t/proxy-constants new file mode 100644 index 0000000000..ea60855b75 --- /dev/null +++ b/lib/perl5db/t/proxy-constants @@ -0,0 +1,9 @@ +#!/usr/bin/perl +# +# This code is used by lib/perl5db.t !!! +# + +use constant FOO => "bar"; +sub s1 { + "main"; +} diff --git a/lib/perl5db/t/rt-61222 b/lib/perl5db/t/rt-61222 new file mode 100644 index 0000000000..6dd6a94b7e --- /dev/null +++ b/lib/perl5db/t/rt-61222 @@ -0,0 +1,10 @@ +#!/usr/bin/perl +# +# This code is used by lib/perl5db.t !!! +# + +package Pie; + +sub INCORRECT (DB); + +1; |