Commit | Line | Data |
---|---|---|
eb2c02c4 | 1 | #!/usr/bin/perl |
2 | ||
3 | use FindBin qw/ $Bin /; | |
4 | ||
5 | BEGIN { | |
6 | #line 1 | |
7 | #!/usr/bin/perl -d | |
8 | ||
9 | push @DB::typeahead, "c", "q"; | |
10 | ||
11 | # try to shut it up at least a little bit | |
12 | open my $out, ">", \my $out_buf; | |
13 | $DB::OUT = $out; | |
14 | open my $in, "<", \my $in_buf; | |
15 | $DB::IN = $in; | |
16 | } | |
17 | ||
18 | require "$Bin/type_constraints/duck_types.t"; |