translate.pl (ff3f4ebc) translate.pl (599cc5b4)
1:
2eval 'exec perl -wS $0 ${1+"$@"}'
3 if 0;
4
5#**************************************************************
6#
7# Licensed to the Apache Software Foundation (ASF) under one
8# or more contributor license agreements. See the NOTICE file

--- 18 unchanged lines hidden (view full) ---

27
28
29#*********************************************************************
30#
31# main
32#
33
34my ($prefix, $ext, $key);
1:
2eval 'exec perl -wS $0 ${1+"$@"}'
3 if 0;
4
5#**************************************************************
6#
7# Licensed to the Apache Software Foundation (ASF) under one
8# or more contributor license agreements. See the NOTICE file

--- 18 unchanged lines hidden (view full) ---

27
28
29#*********************************************************************
30#
31# main
32#
33
34my ($prefix, $ext, $key);
35$productname = "Apache OpenOffice";
35$productname = "OpenOffice";
36$workdir = ".";
37
38while ($_ = $ARGV[0], /^-/) {
39 shift;
40 last if /^--$/;
41 if (/^-p/) {
42 $productname = $ARGV[0];
43 shift;

--- 98 unchanged lines hidden ---
36$workdir = ".";
37
38while ($_ = $ARGV[0], /^-/) {
39 shift;
40 last if /^--$/;
41 if (/^-p/) {
42 $productname = $ARGV[0];
43 shift;

--- 98 unchanged lines hidden ---