[libgraph-easy-perl] 01/02: Explicitly escape literal { and } characters in regex

[Salvatore Bonaccorso]

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

carnil pushed a commit to branch master
in repository libgraph-easy-perl.

commit 7dd4bb9fc6d1507933f4fe893ac47bb82d91c404
Author: Salvatore Bonaccorso <carnil at debian.org>
Date:   Sun Jun 5 20:52:28 2016 +0200

    Explicitly escape literal { and } characters in regex
    
    Closes: #826478
---
 ...escaped-left-brace-in-regex-is-deprecated.patch | 35 ++++++++++++++++++++++
 debian/patches/series                              |  1 +
 2 files changed, 36 insertions(+)

diff --git a/debian/patches/fix-Unescaped-left-brace-in-regex-is-deprecated.patch b/debian/patches/fix-Unescaped-left-brace-in-regex-is-deprecated.patch
new file mode 100644
index 0000000..5df4c66
--- /dev/null
+++ b/debian/patches/fix-Unescaped-left-brace-in-regex-is-deprecated.patch
@@ -0,0 +1,35 @@
+Description: et rid of some "unescaped brace" warnings
+Origin: upstream, https://bitbucket.org/shlomif/perl-graph-easy/commits/b21b8a5bde61841cab1a1ff5de0fc70520fa8653
+Bug-Debian: https://bugs.debian.org/826478
+Forwarded: not-needed
+Author: Shlomi Fish <shlomif at shlomifish.org>
+Last-Update: 2016-06-05
+
+--- a/t/as_vcg.t
++++ b/t/as_vcg.t
+@@ -32,7 +32,7 @@ is ($vcg, $vcg_file, 'as_vcg and as_vcg_
+ 
+ $graph->add_edge('A','B');
+ 
+-like ($graph->as_vcg(), qr/edge: { sourcename: "A" targetname: "B" }/,
++like ($graph->as_vcg(), qr/edge: \{ sourcename: "A" targetname: "B" \}/,
+ 	'as_vcg matches');
+ 
+ # set edge label
+@@ -40,7 +40,7 @@ my @edges = $graph->edges();
+ $edges[0]->set_attribute('label', 'my car');
+ 
+ like ($graph->as_vcg(),
+-	qr/edge: { label: "my car" sourcename: "A" targetname: "B" }/,
++	qr/edge: \{ label: "my car" sourcename: "A" targetname: "B" \}/,
+ 	'as_vcg matches');
+ 
+ #############################################################################
+--- a/t/graphviz.t
++++ b/t/graphviz.t
+@@ -700,4 +700,4 @@ is($a_->{_order},1,'subgraph A is level
+ is($d->{_order},1,'subgraph D is level 1');
+ is($b_->{_order},2,'subgraph B is level 2');
+ is($c->{_order},3,'subgraph C is level 3');
+-like($grviz,qr/subgraph "cluster\d+" {\n  label="A";\n    subgraph "cluster\d+" {/,'subgraph indent');
++like($grviz,qr/subgraph "cluster\d+" \{\n  label="A";\n    subgraph "cluster\d+" \{/,'subgraph indent');
diff --git a/debian/patches/series b/debian/patches/series
new file mode 100644
index 0000000..6ab4d5c
--- /dev/null
+++ b/debian/patches/series
@@ -0,0 +1 @@
+fix-Unescaped-left-brace-in-regex-is-deprecated.patch

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