diff --git a/tmcd/common/libsetup.pm b/tmcd/common/libsetup.pm index c236015a616e063352a42aa05f4a6d823b403f12..fc51cb269780aef92f89d0fc580a38363c6acaed 100644 --- a/tmcd/common/libsetup.pm +++ b/tmcd/common/libsetup.pm @@ -1139,6 +1139,7 @@ sub dotrafficconfig() my $TM; my $boss; my $startnse = 0; + my $nseconfig = ""; # # Kinda ugly, but there is too much perl goo included by Socket to put it @@ -1283,7 +1284,7 @@ sub dotrafficconfig() $TM = OPENTMCC(TMCCCMD_NSECONFIGS); $record_sep = $/; undef($/); - my $nseconfig = <$TM>; + $nseconfig = <$TM>; $/ = $record_sep; print NSECFG $nseconfig; CLOSETMCC($TM); diff --git a/tmcd/libsetup.pm b/tmcd/libsetup.pm index c236015a616e063352a42aa05f4a6d823b403f12..fc51cb269780aef92f89d0fc580a38363c6acaed 100644 --- a/tmcd/libsetup.pm +++ b/tmcd/libsetup.pm @@ -1139,6 +1139,7 @@ sub dotrafficconfig() my $TM; my $boss; my $startnse = 0; + my $nseconfig = ""; # # Kinda ugly, but there is too much perl goo included by Socket to put it @@ -1283,7 +1284,7 @@ sub dotrafficconfig() $TM = OPENTMCC(TMCCCMD_NSECONFIGS); $record_sep = $/; undef($/); - my $nseconfig = <$TM>; + $nseconfig = <$TM>; $/ = $record_sep; print NSECFG $nseconfig; CLOSETMCC($TM);