Git-Url:
http://git.frugalware.org/gitweb/gitweb.cgi?p=pacman-tools.git;a=commitdiff;h=36b06978cdcaadc52c21b9d23ef44603be801dc5
commit 36b06978cdcaadc52c21b9d23ef44603be801dc5
Author: VMiklos <[EMAIL PROTECTED]>
Date: Sun Sep 30 23:34:40 2007 +0200
mpdep: bin, broken
it was an initial attemp to add proper depends() support to fwcpan, but it's
broken
diff --git a/fwcpan b/fwcpan
index 143e7cd..760b8f5 100644
--- a/fwcpan
+++ b/fwcpan
@@ -20,43 +20,6 @@
# USA.
#
-get_deps()
-{
- local indep i name ver
- echo -n "depends=("
- indep=0
- cat $1|while IFS= read i
- do
- if [ $indep = 1 ]; then
- echo "$i"|grep -q '},' && break
- echo "$i"
- else
- echo "$i"|grep -q PREREQ_PM && indep=1
- fi
- done |sed 's/\W*\W*\([^\W]*\)\W*#.*/\1/'|while read name junk ver
- do
- [ -z "$name" ] && continue
- name="perl-`echo $name|sed "s/::/-/g;s/'//g"|tr [A-Z] [a-z]`"
- ver=`echo $ver|sed "s/'//g;s/
$//;s/,$//"`
- if [ "$ver" = "0" ]; then
- if [ "$first" != 1 ]; then
- first=1
- echo -n "'$name'"
- else
- echo -n " '$name'"
- fi
- else
- if [ "$first" != 1 ]; then
- first=1
- echo -n "'$name>=$ver'"
- else
- echo -n " '$name>=$ver'"
- fi
- fi
- done
- echo ")"
-}
-
if [ "$1" == "-h" -o "$1" == "--help" ]; then
man fwcpan
exit $?
@@ -113,6 +76,9 @@ sha1sum=`cat $srcdump|sha1sum |sed 's/ -$//'`
makedump=`mktemp`
tar xOzf $srcdump $modname-$pkgver/Makefile.PL >$makedump 2>/dev/null
+# TODO: depends(). though this is not so problematic: the build will properly
+# abort on any missing depend
+
cat << EOF > FrugalBuild
# Compiling Time: 0.1 SBU
# Maintainer: Zsolt Szalai <[EMAIL PROTECTED]>
@@ -121,7 +87,6 @@ _F_perl_name=$modname
_F_perl_author=$modauthor
pkgver=$pkgver
pkgdesc="$pkgdesc"
-`get_deps $makedump`
archs=('`uname -m`')
Finclude perl
sha1sums=('$sha1sum')
diff --git a/mpdep b/mpdep
deleted file mode 100644
index bd77dd8..0000000
--- a/mpdep
+++ /dev/null
@@ -1,21 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use Module::MakefilePL::Parse;
-use Data::Dumper;
-
-my $fh;
-open $fh, 'Makefile.PL';
-my $parser = Module::MakefilePL::Parse->new( join("", <$fh>) );
-my $info = $parser->required;
-
-my $out = 'depends=(';
-for (keys %{$info}) {
- $_ = lc;
- $_ = 'perl-'.$_;
- $_ =~ s/::/-/;
- $out .= "'$_' ";
-}
-chop $out;
-$out .= ')';
-print "$out\n";
_______________________________________________
Frugalware-git mailing list
[email protected]
http://frugalware.org/mailman/listinfo/frugalware-git
