--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/sbsv1/abld/group/perlprep.bat	Fri Jun 25 17:29:25 2010 +0800
@@ -0,0 +1,58 @@
+@rem
+@rem Copyright (c) 2009 Nokia Corporation and/or its subsidiary(-ies).
+@rem All rights reserved.
+@rem This component and the accompanying materials are made available
+@rem under the terms of "Eclipse Public License v1.0"
+@rem which accompanies this distribution, and is available
+@rem at the URL "http://www.eclipse.org/legal/epl-v10.html".
+@rem
+@rem Initial Contributors:
+@rem Nokia Corporation - initial contribution.
+@rem
+@rem Contributors:
+@rem
+@rem Description:
+@rem
+@echo off
+
+REM a basic perl preprocessor
+
+if exist %0.bat perl -x %0.bat %1 %2 %3 %4 %5
+if exist %0 perl -x %0 %1 %2 %3 %4 %5
+GOTO End
+
+#!perl
+
+use strict;
+
+die "Usage:\nPERLPREP [infile] [outfile]\n" unless @ARGV==2;
+
+my ($INFILE, $OUTFILE)=map lc $_, @ARGV;
+die "Can't find $INFILE\n" unless -e $INFILE;
+
+if ($INFILE=~/\.(bat|cmd|pm|pl)$/io) {
+	open INFILE,$INFILE or die "Can't open $INFILE: $!\n";
+	my $FileText='';
+	while (<INFILE>) {
+		s/(perl)(\.exe)?\s+-w/$1$2/io;		# remove perl -w switch - has to be first switch
+		s/use\s+strict;\s*\n//oe;	# remove use strict; statement
+		$FileText.=$_;
+	}
+	close INFILE or die "Can't close $INFILE: $!\n";
+	open OUTFILE,">$OUTFILE" or die "Can't open $OUTFILE: $!\n";
+	print OUTFILE $FileText;
+	close OUTFILE or die "Can't close $OUTFILE: $!\n";
+}
+else {
+	system "copy $INFILE $OUTFILE";
+}
+
+
+__END__
+
+:End
+
+
+
+
+