# | Line 1 | Line 1 | |
---|---|---|
1 | – | #!perl |
1 | # | |
2 | # Utility Routines for the SCRAM tools | |
3 | # | |
4 | ||
5 | package SCRAMUtils; | |
6 | + | require 5.001; |
7 | require Exporter; | |
8 | @ISA = qw(Exporter); | |
9 | @EXPORT = qw(checkfile updatelookup); | |
10 | use Carp; | |
11 | ||
12 | < | sub checkfile ($filename) { |
12 | > | sub checkfile { |
13 | my $filename=shift; | |
14 | my $thisfile=""; | |
15 | $thifile=$ENV{LOCALTOP}."/".$filename; |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |