Ant 1.6.3

1 files changed, 65 insertions, 51 deletions

diff --git a/lib/ant/bin/antRun.pl b/lib/ant/bin/antRun.pl
index 1851b50ce..7cdd8687c 100644
--- a/lib/ant/bin/antRun.pl
+++ b/lib/ant/bin/antRun.pl
@@ -1,51 +1,65 @@
-#!/usr/bin/perl

-#######################################################################

-#

-# antRun.pl

-#

-# wrapper script for invoking commands on a platform with Perl installed

-# this is akin to antRun.bat, and antRun the SH script 

-#

-# created:         2001-10-18

-# last modified:   2001-11-13

-# author:          Jeff Tulley jtulley@novell.com 

-#######################################################################

-#be fussy about variables

-use strict;

-

-#turn warnings on during dev; generates a few spurious uninitialised var access warnings

-#use warnings;

-

-#and set $debug to 1 to turn on trace info (currently unused)

-my $debug=1;

-

-#######################################################################

-# change drive and directory to "%1"

-my $ANT_RUN_CMD = @ARGV[0];

-

-# assign current run command to "%2"

-chdir (@ARGV[0]) || die "Can't cd to $ARGV[0]: $!\n";

-if ($^O eq "NetWare") {

-    # There is a bug in Perl 5 on NetWare, where chdir does not

-    # do anything.  On NetWare, the following path-prefixed form should 

-    # always work. (afaict)

-    $ANT_RUN_CMD .= "/".@ARGV[1];

-}

-else {

-    $ANT_RUN_CMD = @ARGV[1];

-}

-

-# dispose of the first two arguments, leaving only the command's args.

-shift;

-shift;

-

-# run the command

-my $returnValue = system $ANT_RUN_CMD, @ARGV;

-if ($returnValue eq 0) {

-    exit 0;

-}

-else {

-    # only 0 and 1 are widely recognized as exit values

-    # so change the exit value to 1

-    exit 1;

-}

+#!/usr/bin/perl
+#
+# Copyright 2001,2003-2004 The Apache Software Foundation
+#
+#  Licensed under the Apache License, Version 2.0 (the "License");
+#  you may not use this file except in compliance with the License.
+#  You may obtain a copy of the License at
+#
+#      http://www.apache.org/licenses/LICENSE-2.0
+#
+#  Unless required by applicable law or agreed to in writing, software
+#  distributed under the License is distributed on an "AS IS" BASIS,
+#  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+#  See the License for the specific language governing permissions and
+#  limitations under the License.
+#
+#######################################################################
+#
+# antRun.pl
+#
+# wrapper script for invoking commands on a platform with Perl installed
+# this is akin to antRun.bat, and antRun the SH script 
+#
+# created:         2001-10-18
+# author:          Jeff Tulley jtulley@novell.com 
+#######################################################################
+#be fussy about variables
+use strict;
+
+#turn warnings on during dev; generates a few spurious uninitialised var access warnings
+#use warnings;
+
+#and set $debug to 1 to turn on trace info (currently unused)
+my $debug=1;
+
+#######################################################################
+# change drive and directory to "%1"
+my $ANT_RUN_CMD = @ARGV[0];
+
+# assign current run command to "%2"
+chdir (@ARGV[0]) || die "Can't cd to $ARGV[0]: $!\n";
+if ($^O eq "NetWare") {
+    # There is a bug in Perl 5 on NetWare, where chdir does not
+    # do anything.  On NetWare, the following path-prefixed form should 
+    # always work. (afaict)
+    $ANT_RUN_CMD .= "/".@ARGV[1];
+}
+else {
+    $ANT_RUN_CMD = @ARGV[1];
+}
+
+# dispose of the first two arguments, leaving only the command's args.
+shift;
+shift;
+
+# run the command
+my $returnValue = system $ANT_RUN_CMD, @ARGV;
+if ($returnValue eq 0) {
+    exit 0;
+}
+else {
+    # only 0 and 1 are widely recognized as exit values
+    # so change the exit value to 1
+    exit 1;
+}