| # | Line 1 | Line 1 | |
|---|---|---|
| 1 | – | #!/usr/local/bin/perl5 |
| 2 | – | # |
| 1 | # Switcher Module | |
| 2 | # | |
| 3 | # Look for elements given in input has in a string | |
| # | Line 8 | Line 6 | |
| 6 | # processed. | |
| 7 | ||
| 8 | package Switcher; | |
| 9 | + | require 5.001; |
| 10 | require Exporter; | |
| 11 | use Carp; | |
| 12 | @ISA = qw(Exporter); | |
| # | Line 237 | Line 236 | sub checkparam($hash, $name, $key) { | |
| 236 | my $key=shift; | |
| 237 | ||
| 238 | if ( ! defined $$hashref{$key} ) { | |
| 239 | < | print "BootParser: Badly formed $name tag -". |
| 239 | > | print "Switcher: Badly formed $name tag -". |
| 240 | " undefined $key parameter\n"; | |
| 241 | exit 1; | |
| 242 | } | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |