Revision 7274f9c8
Von Sven Schöling vor etwa 13 Jahren hinzugefügt
| t/Support/Systemexec.pm | ||
|---|---|---|
| 3 | 3 |
package Support::Systemexec; |
| 4 | 4 |
require Exporter; |
| 5 | 5 |
@ISA = qw(Exporter); |
| 6 |
@EXPORT = qw(system exec); |
|
| 6 |
@EXPORT = qw(system exec open);
|
|
| 7 | 7 |
@EXPORT_OK = qw(); |
| 8 | 8 |
sub system($$@) {
|
| 9 | 9 |
1; |
| ... | ... | |
| 11 | 11 |
sub exec($$@) {
|
| 12 | 12 |
1; |
| 13 | 13 |
} |
| 14 |
sub open(*$$@) {
|
|
| 15 |
1; |
|
| 16 |
} |
|
| 14 | 17 |
1; |
Auch abrufbar als: Unified diff
Alle 2-arg open in 3-arg open verwandelt.