[RavenclawDev 285] [927] Tools/MakeLM/makelm.pl: Updating MakeLM to work with Active State Perl

[bfrisch@edam.speech.cs.cmu.edu]

An HTML attachment was scrubbed...
URL: http://mailman.srv.cs.cmu.edu/pipermail/ravenclaw-developers/attachments/20070702/c81c48e4/attachment.html
-------------- next part --------------
Modified: Tools/MakeLM/makelm.pl
===================================================================
--- Tools/MakeLM/makelm.pl	2007-06-16 15:51:30 UTC (rev 926)
+++ Tools/MakeLM/makelm.pl	2007-07-02 23:10:19 UTC (rev 927)
@@ -4,7 +4,6 @@
 use HTTP::Request::Common;
 use File::Spec;
 use File::Copy;
-use File::stat;
 use IO::Handle;
 use IPC::Open2;
 use Getopt::Long;
@@ -22,7 +21,7 @@
 open(LOG, ">$LOGFILE") if $LOGFILE;
 
 #need access to cygwin dir so that cygwin1.dll can be found
-$ENV{'Path'} .= ($ENV{'CYGWIN_DIR'} || 'C:\cygwin').'\bin;';
+$ENV{'Path'} .= ';'.($ENV{'CYGWIN_DIR'} || 'C:\cygwin').'\bin';
 
 #setup default vaiables
 #needs to run from makelm directory
@@ -202,10 +201,10 @@
     my @diclines = 
 	grep !(/CONTENT-TYPE/ || /TEXT\/PLAIN/), &getdic('outfile.tmp');
     unlink 'outfile.tmp';
-    my @longlines = stat('longfile.tmp')->size? 
-	grep !(/CONTENT-TYPE/ || /TEXT\/PLAIN/), &getdic('longfile.tmp'): 
-	();
-    unlink 'longfile.tmp';
+	my @longlines = (stat('longfile.tmp'))[7]? 
+					grep !(/CONTENT-TYPE/ || /TEXT\/PLAIN/), &getdic('longfile.tmp'): 
+					();
+	unlink 'longfile.tmp';
 
     my $not_used = 1;