Package: dwww
Severity: serious
Version: 1.9.26
Tags: patch

>From my pbuilder build log:

...
perl -e '                                       \
                use lib ".";                            \
                use Debian::Dwww::Initialize;           \
                $d=&DwwwInitialize;                     \
                $v="";                                  \
                foreach $k (sort keys %{$d}) {  \
                        $v.="\t$k=\"$d->{$k}\"\n"       \
                                if $k ne "DWWW_TITLE";  \
                }                                       \
                while (<>) {                            \
                        s/#VERSION#/1.9.26/g;   \
                        s/^.*#DWWWVARS#.*$/$v/g;        \
                        print;                          \
                }'                                      \
          < Dwww/Version.pm.in > Dwww/Version.pm
"use" not allowed in expression at -e line 2, near ""
syntax error at -e line 2, near "use lib "
"use" not allowed in expression at -e line 3, near ""
syntax error at -e line 6, near "foreach "
Execution of -e aborted due to compilation errors.
make[1]: *** [Dwww/Version.pm] Error 255
make[1]: Leaving directory `/tmp/buildd/dwww-1.9.26'
make: *** [build-stamp] Error 2

I've attached a patch which fixes the build for me.

-- System Information:
Debian Release: testing/unstable
  APT prefers unstable
  APT policy: (500, 'unstable'), (1, 'experimental')
Architecture: i386 (i686)
Shell:  /bin/sh linked to /bin/bash
Kernel: Linux 2.6.15-1-686
Locale: LANG=fr_FR.UTF-8, LC_CTYPE=fr_FR.UTF-8 (charmap=UTF-8)
diff -urN dwww-1.9.26.old/Makefile dwww-1.9.26/Makefile
--- dwww-1.9.26.old/Makefile	2005-04-07 23:40:08.000000000 +0000
+++ dwww-1.9.26/Makefile	2006-01-10 10:03:19.000000000 +0000
@@ -70,20 +70,20 @@
 
 
 %::%.in $(source_links)
-	perl -e '					\
-		use lib "."; 				\
-		use Debian::Dwww::Initialize; 		\
-		$$d=&DwwwInitialize;			\
-		$$v="";					\
-		foreach $$k (sort keys %{$$d}) {	\
-			$$v.="\t$$k=\"$$d->{$$k}\"\n" 	\
-				if $$k ne "DWWW_TITLE";	\
-		}					\
-		while (<>) {				\
-			s/#VERSION#/$(VERSION)/g;  	\
-			s/^.*#DWWWVARS#.*$$/$$v/g;	\
-			print;				\
-		}'					\
+	perl -e '					'\
+'		use lib "."; 				'\
+'		use Debian::Dwww::Initialize; 		'\
+'		$$d=&DwwwInitialize;			'\
+'		$$v="";					'\
+'		foreach $$k (sort keys %{$$d}) {	'\
+'			$$v.="\t$$k=\"$$d->{$$k}\"\n" 	'\
+'				if $$k ne "DWWW_TITLE";	'\
+'		}					'\
+'		while (<>) {				'\
+'			s/#VERSION#/$(VERSION)/g;  	'\
+'			s/^.*#DWWWVARS#.*$$/$$v/g;	'\
+'			print;				'\
+'		}'					\
 	  < $< > $@
 	touch -r $< $@
 

Reply via email to