--- a/sbsv1/abld/e32util/gendef.pl	Fri Jun 25 20:58:33 2010 +0800
+++ b/sbsv1/abld/e32util/gendef.pl	Tue Jun 29 14:52:54 2010 +0800
@@ -1,74 +1,74 @@
-# Copyright (c) 2008-2009 Nokia Corporation and/or its subsidiary(-ies).
-# All rights reserved.
-# This component and the accompanying materials are made available
-# under the terms of "Eclipse Public License v1.0"
-# which accompanies this distribution, and is available
-# at the URL "http://www.eclipse.org/legal/epl-v10.html".
-#
-# Initial Contributors:
-# Nokia Corporation - initial contribution.
-#
-# Contributors:
-#
-# Description:
-# e32toolp/e32util/gendef.pl
-# 
-#
-
-use FindBin;		# for FindBin::Bin
-
-my $PerlLibPath;    # fully qualified pathname of the directory containing our Perl modules
-
-BEGIN {
-# check user has a version of perl that will cope
-	require 5.005_03;
-# establish the path to the Perl libraries: currently the same directory as this script
-	$PerlLibPath = $FindBin::Bin;	# X:/epoc32/tools
-	$PerlLibPath =~ s/\//\\/g;	# X:\epoc32\tools
-	$PerlLibPath .= "\\";
-}
-
-use lib $PerlLibPath;
-use E32tpver;
-
-# THE MAIN PROGRAM SECTION
-##########################
-
-unless (@ARGV>1)
-{
-	&Usage;
-}
-my @exports = @ARGV;
-my $outfile = shift @exports;
-
-open OUTFILE, ">$outfile" or die "Gendef.pl: Unable to open $outfile for writing";
-
-print OUTFILE "EXPORTS\n";
-my $exportNum = 1;
-foreach (@exports)
-{
-	print OUTFILE "\t$_ @ $exportNum NONAME\n";
-	++$exportNum;
-}
-
-close OUTFILE;
-
-#######################################################################
-# SUBROUTINES
-#######################################################################
-
-sub Usage () {
-
-	print(
-		"\n",
-		"GENDEF - Generate a DEF file from passed exports (Build ",&E32tpver,")\n",
-		"\n",
-		"GENDEF.PL [output def file] [1st export name] ([Other export names]...)\n",
-		"\n",
-		"\n",
-		"\n"
-	);
-	exit 1;
-}
-
-
+#!/usr/bin/perl
+# Copyright (c) 2008-2009 Nokia Corporation and/or its subsidiary(-ies).
+# All rights reserved.
+# This component and the accompanying materials are made available
+# under the terms of "Eclipse Public License v1.0"
+# which accompanies this distribution, and is available
+# at the URL "http://www.eclipse.org/legal/epl-v10.html".
+#
+# Initial Contributors:
+# Nokia Corporation - initial contribution.
+#
+# Contributors:
+#
+# Description:
+# e32toolp/e32util/gendef.pl
+# 
+#
+
+use FindBin;		# for FindBin::Bin
+
+my $PerlLibPath;    # fully qualified pathname of the directory containing our Perl modules
+
+BEGIN {
+# check user has a version of perl that will cope
+	require 5.005_03;
+}
+
+# Version
+my $MajorVersion = 1;
+my $MinorVersion = 1;
+my $PatchVersion = 0;
+
+
+# THE MAIN PROGRAM SECTION
+##########################
+
+unless (@ARGV>1)
+{
+	&Usage;
+}
+my @exports = @ARGV;
+my $outfile = shift @exports;
+
+open OUTFILE, ">$outfile" or die "Gendef.pl: Unable to open $outfile for writing";
+
+print OUTFILE "EXPORTS\n";
+my $exportNum = 1;
+foreach (@exports)
+{
+	print OUTFILE "\t$_ @ $exportNum NONAME\n";
+	++$exportNum;
+}
+
+close OUTFILE;
+
+#######################################################################
+# SUBROUTINES
+#######################################################################
+
+sub Usage () {
+
+	print(
+		"\n",
+		"GENDEF - Generate a DEF file from passed exports V$MajorVersion.$MinorVersion.$PatchVersion\n",
+		"\n",
+		"GENDEF.PL [output def file] [1st export name] ([Other export names]...)\n",
+		"\n",
+		"\n",
+		"\n"
+	);
+	exit 1;
+}
+
+