| # | Line 1 | Line 1 | |
|---|---|---|
| 1 | – | #!/usr/local/bin/perl5 |
| 2 | – | # |
| 1 | # simply set the architecture variable based on uname | |
| 2 | # | |
| 3 | ||
| 4 | package setarchitecture; | |
| 5 | + | require 5.001; |
| 6 | require Exporter; | |
| 7 | @ISA = qw(Exporter); | |
| 8 | @EXPORT = qw(setarch); | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |