Package: libcflow-perl
Version: 1:0.68-12+b3
Severity: grave
Justification: unusable
Tags: patch
User: debian-p...@lists.debian.org
Usertags: perl-5.14-transition
$ perl -MCflow
Not a CODE reference at /usr/lib/perl/5.14/DynaLoader.pm line 207.
END failed--call queue aborted at /usr/lib/perl5/Cflow.pm line 207.
Compilation failed in require.
BEGIN failed--compilation aborted.
This arises with perl 5.14 on i386, as described at
http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=628522
Patch, which adds $Config{ccflags} to the build environment, fixes this.
Dominic.
--
Dominic Hargreaves | http://www.larted.org.uk/~dom/
PGP key 5178E2A5 from the.earth.li (keyserver,web,email)
diff -u flow-tools-0.68/debian/rules flow-tools-0.68/debian/rules
--- flow-tools-0.68/debian/rules
+++ flow-tools-0.68/debian/rules
@@ -39,6 +39,7 @@
$(CF)/Cflow.xs: contrib/Cflow-1.051.tar.gz
cd contrib/ && tar xzmf Cflow-1.051.tar.gz
cd $(CF) && patch -p1 < ../Cflow-debian.diff
+ cd $(CF) && patch -p1 < ../Cflow-ccflags.diff
configure: config-stamp
configure-stamp: $(CF)/Cflow.xs
--- flow-tools-0.68.orig/contrib/Cflow-ccflags.diff
+++ flow-tools-0.68/contrib/Cflow-ccflags.diff
@@ -0,0 +1,29 @@
+--- Cflow-1.051/Makefile.PL.orig 2002-01-11 22:23:52.000000000 +0000
++++ Cflow-1.051/Makefile.PL 2012-02-15 22:26:33.000000000 +0000
+@@ -3,7 +3,7 @@
+
+ require 5.003; # for INSTALLSCRIPT
+
+-# use Config;
++use Config;
+ use ExtUtils::MakeMaker;
+ # See lib/ExtUtils/MakeMaker.pm for details of how to influence
+ # the contents of the Makefile that is written.
+@@ -49,7 +49,7 @@
+ }
+ if ("$libdir") {
+ print "Found flow-tools... using \"-DOSU $incdir $libdir -lft -lz\".\n";
+- return { CCFLAGS => '-DOSU',
++ return { CCFLAGS => "-DOSU $Config{ccflags}",
+ INC => join(' ', $incdir),
+ LIBS => [ join(' ', $libdir, '-lnsl -lft -lz') ] }
+ }
+@@ -66,7 +66,7 @@
+ }
+ if ("$libdir") {
+ print "Found argus... using \"-DARGUS $incdir $dir/argus_common.a $dir/argus_parse.a\".\n";
+- return { CCFLAGS => '-DARGUS',
++ return { CCFLAGS => "-DARGUS $Config{ccflags}",
+ INC => join(' ', $incdir),
+ LIBS => [ join(' ', $libdir, '-lnsl', '-lm') ],
+ LDFROM => "\$(OBJECT) $dir/argus_common.a $dir/argus_parse.a" }
