X-Git-Url: http://gitweb.hugovil.com/?a=blobdiff_plain;f=stage3%2Fpatches%2Fcommon%2Fopenjade-1.3.2-perl-fix.patch;fp=stage3%2Fpatches%2Fcommon%2Fopenjade-1.3.2-perl-fix.patch;h=bbff5a2e7a5f47d00b64e126f81ca67c88c562cd;hb=f17ab848cb756cad27489bf0c2746e5ead466658;hp=0000000000000000000000000000000000000000;hpb=a1358efe562a4e73ef23f25c606a346f684e1c93;p=hvlinux.git

diff --git a/stage3/patches/common/openjade-1.3.2-perl-fix.patch b/stage3/patches/common/openjade-1.3.2-perl-fix.patch
new file mode 100644
index 0000000..bbff5a2
--- /dev/null
+++ b/stage3/patches/common/openjade-1.3.2-perl-fix.patch
@@ -0,0 +1,22 @@
+diff -ur openjade-1.3.2.orig/msggen.pl openjade-1.3.2.new/msggen.pl
+--- openjade-1.3.2.orig/msggen.pl	2002-10-20 17:47:23.000000000 -0400
++++ openjade-1.3.2.new/msggen.pl	2012-09-09 12:20:32.827758524 -0400
+@@ -4,6 +4,7 @@
+ # See the file COPYING for copying permission.
+ 
+ use POSIX;
++use Getopt::Std;
+ 
+ # Package and version.
+ $package = 'openjade';
+@@ -18,8 +19,8 @@
+ undef $opt_l;
+ undef $opt_p;
+ undef $opt_t;
+-do 'getopts.pl';
+-&Getopts('l:p:t:');
++
++getopts('l:p:t:');
+ $module = $opt_l;
+ $pot_file = $opt_p;
+