diff options
Diffstat (limited to 'lib/sbin')
-rw-r--r-- | lib/sbin/c_file_processor.pl | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lib/sbin/c_file_processor.pl b/lib/sbin/c_file_processor.pl index 2e7084ab..6807147c 100644 --- a/lib/sbin/c_file_processor.pl +++ b/lib/sbin/c_file_processor.pl @@ -2,9 +2,6 @@ $home = shift(@ARGV); -$/ = ";"; -$*=1; - if (! -e "$home/fortran_name.pl" ) { die "Unable to get fortran name file!"; @@ -12,6 +9,10 @@ if (! -e "$home/fortran_name.pl" ) require "$home/fortran_name.pl"; +$/ = ";"; +$*=1; + + while(<>) { $line = $_; |