diff options
author | goodale <goodale@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-01-22 11:32:40 +0000 |
---|---|---|
committer | goodale <goodale@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-01-22 11:32:40 +0000 |
commit | 57754fa718622bfe9ff9eaf1845cdc8466166a95 (patch) | |
tree | 6efe67b3798ce91ec22ea0bd0fd3724741822220 /lib/sbin/c_file_processor.pl | |
parent | 552abbcda3b950a6aad048ba2c161d84970c984f (diff) |
Fixed a slight problem when using perl 4.
Tom
git-svn-id: http://svn.cactuscode.org/flesh/trunk@108 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'lib/sbin/c_file_processor.pl')
-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 = $_; |