[dizzy] 01/01: add patch ignoring unknown OPs Closes: #730737 -- exits immediately with "strict refs" error in Perl2GLSL.pm, line 160

[Damyan Ivanov]

This is an automated email from the git hooks/post-receive script.

dmn pushed a commit to branch master
in repository dizzy.

commit 77f2b6618684b67645d79c2179ef3d5f6c59d017
Author: Damyan Ivanov <dmn at debian.org>
Date:   Mon Jan 13 21:33:52 2014 +0000

    add patch ignoring unknown OPs Closes: #730737 -- exits immediately with "strict refs" error in Perl2GLSL.pm, line 160
---
 debian/changelog                    |  3 +++
 debian/patches/empty-op-descr.patch | 21 +++++++++++++++++++++
 debian/patches/series               |  1 +
 3 files changed, 25 insertions(+)

diff --git a/debian/changelog b/debian/changelog
index 603bc3b..5044340 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -13,6 +13,9 @@ dizzy (0.3-2) UNRELEASED; urgency=low
   * patch installed executables fixing interpreter path
     Closes: #734160 -- dizzy hardcodes wrong path to perl, fails to start
   * also patch away "use lib 'lib'", which is perl equivalent for PATH=.:$PATH
+  * add patch ignoring unknown OPs
+    Closes: #730737 -- exits immediately with "strict refs" error in
+    Perl2GLSL.pm, line 160
 
  -- gregor herrmann <gregoa at debian.org>  Thu, 05 Jul 2012 12:11:49 -0600
 
diff --git a/debian/patches/empty-op-descr.patch b/debian/patches/empty-op-descr.patch
new file mode 100644
index 0000000..e51a7a6
--- /dev/null
+++ b/debian/patches/empty-op-descr.patch
@@ -0,0 +1,21 @@
+Description: fix "Can't use string..." as an ARRAY ref at line 160
+ Not sure what other problems this creates, but it seems to fix the
+ problem at hand, which was making dizzy completely unusable.
+Author: Damyan Ivanov <dmn at debian.org>
+Bug-Debian: https://bugs.debian.org/730737
+Forwarded: yes
+
+--- a/lib/Dizzy/Perl2GLSL.pm
++++ b/lib/Dizzy/Perl2GLSL.pm
+@@ -50,10 +50,8 @@ sub walk_optree {
+ 	} elsif ($optype eq "OP") {
+ 		if ($op->name eq "padsv") {
+ 			return "var" . $op->targ;
+-		} elsif ($op->name eq "pushmark" or $op->name eq "null") {
+-			return ();
+ 		} else {
+-			return "# op description " . $op->desc;
++			return ();
+ 		}
+ 	} elsif ($optype eq "COP") {
+ 		return ();
diff --git a/debian/patches/series b/debian/patches/series
index 592220d..fc075a9 100644
--- a/debian/patches/series
+++ b/debian/patches/series
@@ -1 +1,2 @@
 Add-missing-use-SDL-Mouse.patch
+empty-op-descr.patch

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/dizzy.git