commit 10111a1202bc47ffbdfe15de6cbba4d6c38fed6e
Author: Iain Arnell <iarnell@xxxxxxxxx>
Date: Wed May 11 05:17:54 2011 +0200
initial import (bz #699205)
.gitignore | 1 +
graph-easy-undefined-lc.patch | 12 ++++++
perl-Graph-Easy.spec | 77 +++++++++++++++++++++++++++++++++++++++++
sources | 1 +
4 files changed, 91 insertions(+), 0 deletions(-)
---
diff --git a/.gitignore b/.gitignore
index e69de29..67e7cca 100644
--- a/.gitignore
+++ b/.gitignore
@@ -0,0 +1 @@
+/Graph-Easy-0.70.tar.gz
diff --git a/graph-easy-undefined-lc.patch b/graph-easy-undefined-lc.patch
new file mode 100644
index 0000000..a52aff2
--- /dev/null
+++ b/graph-easy-undefined-lc.patch
@@ -0,0 +1,12 @@
+diff -up Graph-Easy-0.70/lib/Graph/Easy/Parser/Graphviz.pm.orig Graph-Easy-0.70/lib/Graph/Easy/Parser/Graphviz.pm
+--- Graph-Easy-0.70/lib/Graph/Easy/Parser/Graphviz.pm.orig 2010-11-05 10:44:18.000000000 +0100
++++ Graph-Easy-0.70/lib/Graph/Easy/Parser/Graphviz.pm 2011-04-24 09:33:54.000000000 +0200
+@@ -831,7 +831,7 @@ sub _build_match_stack
+ return $self->parse_error(6) if @{$self->{scope_stack}} > 0;
+ $self->{_graphviz_graph_name} = 'unnamed';
+ $self->_new_scope(1);
+- $self->{_graph}->set_attribute('type','undirected') if lc($2) ne 'di';
++ $self->{_graph}->set_attribute('type','undirected') if lc($2||'') ne 'di';
+ 1;
+ } );
+
diff --git a/perl-Graph-Easy.spec b/perl-Graph-Easy.spec
new file mode 100644
index 0000000..33f00d6
--- /dev/null
+++ b/perl-Graph-Easy.spec
@@ -0,0 +1,77 @@
+Name: perl-Graph-Easy
+Version: 0.70
+Release: 1%{?dist}
+Summary: Convert or render graphs as ASCII, HTML, SVG or via Graphviz
+License: GPLv2+ and ASL 1.1
+Group: Development/Libraries
+URL: http://search.cpan.org/dist/Graph-Easy/
+Source0: http://www.cpan.org/authors/id/S/SH/SHLOMIF/Graph-Easy-%{version}.tar.gz
+Patch0: graph-easy-undefined-lc.patch
+BuildArch: noarch
+BuildRequires: perl >= 0:5.008002
+BuildRequires: perl(Data::Dumper)
+BuildRequires: perl(ExtUtils::MakeMaker)
+BuildRequires: perl(File::Spec)
+BuildRequires: perl(lib)
+BuildRequires: perl(Pod::Coverage)
+BuildRequires: perl(Scalar::Util) >= 1.13
+BuildRequires: perl(strict)
+BuildRequires: perl(Test::Differences)
+BuildRequires: perl(Test::More)
+BuildRequires: perl(Test::Pod)
+BuildRequires: perl(Test::Pod::Coverage)
+BuildRequires: perl(utf8)
+Requires: perl(:MODULE_COMPAT_%(eval "`%{__perl} -V:version`"; echo $version))
+
+# avoid circular dependencies
+%bcond_without bootstrap
+%if %{without bootstrap}
+BuildRequires: perl(Graph::Easy::As_svg) >= 0.23
+Requires: perl(Graph::Easy::As_svg) >= 0.23
+%endif
+
+# filter unversioned provides
+%{?perl_default_filter:
+%filter_from_provides /^perl(Graph::Easy\(\|::Edge\|::Edge::Cell\|::Group\|::Node\))\s*$/d
+%perl_default_filter
+}
+
+%description
+Graph::Easy lets you generate graphs consisting of various shaped nodes
+connected by edges (with optional labels). It can read and write graphs in a
+variety of formats, as well as render them via its own grid-based layouter.
+Since the layouter works on a grid (manhattan layout), the output is most
+useful for flow charts, network diagrams, or hierarchy trees.
+
+%prep
+%setup -q -n Graph-Easy-%{version}
+%patch0 -p 1
+
+chmod 0644 examples/*
+
+%build
+%{__perl} Makefile.PL INSTALLDIRS=vendor
+make %{?_smp_mflags}
+
+%install
+make pure_install DESTDIR=$RPM_BUILD_ROOT
+
+find $RPM_BUILD_ROOT -type f -name .packlist -exec rm -f {} \;
+find $RPM_BUILD_ROOT -depth -type d -exec rmdir {} 2>/dev/null \;
+
+%{_fixperms} $RPM_BUILD_ROOT/*
+
+%check
+make test
+
+%files
+%defattr(-,root,root,-)
+%doc CHANGES LICENSE README TODO examples
+%{_bindir}/*
+%{_mandir}/man1/*
+%{perl_vendorlib}/*
+%{_mandir}/man3/*
+
+%changelog
+* Sun Apr 24 2011 Iain Arnell <iarnell@xxxxxxxxx> 0.70-1
+- Specfile autogenerated by cpanspec 1.79.
diff --git a/sources b/sources
index e69de29..21c29ad 100644
--- a/sources
+++ b/sources
@@ -0,0 +1 @@
+ced2a9ebee7b751d3223317f46dc08c0 Graph-Easy-0.70.tar.gz
--
Fedora Extras Perl SIG
http://www.fedoraproject.org/wiki/Extras/SIGs/Perl
perl-devel mailing list
perl-devel@xxxxxxxxxxxxxxxxxxxxxxx
https://admin.fedoraproject.org/mailman/listinfo/perl-devel
