fix pruning tags + only prune files/dirs under @ARGV

[id3fs.git] / Makefile.PL

diff --git a/Makefile.PL b/Makefile.PL
index 188e130..5ee546d 100644 (file)
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -2,18 +2,20 @@
 
 use ExtUtils::MakeMaker;
 
-my @binscripts=qw(id3fs-index);
+my @binscripts=qw(id3fs-index id3fs-tag);
 my @sbinscripts=qw(id3fsd);
 
 WriteMakefile(NAME=>"id3fs",
              VERSION=>"1.0",
-             EXE_FILES=>[ map( "bin/$_", @binscripts), map( "sbin/$_", @sbinscripts) ],
+             EXE_FILES=>[ map( "bin/$_", @binscripts) ],
              MAN1PODS=>{ map({ +"bin/$_" => "\${INST_MAN1DIR}/$_.1" } @binscripts) },
-             MAN8PODS=>{ map({ +"sbin/$_" => "\${INST_MAN8DIR}/$_.8" } @sbinscripts) },
-             PREREQ_PM=>{ 'Fuse'        => 0,
-                          'DBI'         => 0,
-                          'DBD::Sqlite' => 0} ,
-#            dist=>{ COMPRESS=>"gzip -9f", SUFFIX=>"gz", },
+             PREREQ_PM=>{ 'Fuse'                 => 0,
+                          'DBI'                  => 0,
+                          'DBD::SQLite'          => 0,
+                          'MP3::Tag'             => 0,
+                          'Audio::FLAC::Header'  => 0,
+                          'Ogg::Vorbis::Header'  => 0,
+             } ,
              ($] >= 5.005
               ? (ABSTRACT   => 'FUSE-based filesystem for browsing music metadata',
                  AUTHOR     => 'Ian Beckwith <ianb@erislabs.net>')
@@ -33,18 +35,24 @@ sub constants {
     my $add = q{
 
 # begin id3fs
-#MAN5PODS = docs/mp3lintrc.pod
+MAN1EXT = 1
+MAN8PODS = sbin/id3fsd
 INST_MAN8DIR = blib/man8
-INSTALLMAN8DIR = $(PREFIX)/man/man8
+INSTALLMAN8DIR = $(PERLPREFIX)/share/man/man8
 DESTINSTALLMAN8DIR = $(DESTDIR)$(INSTALLMAN8DIR)
 INSTALLSITEMAN8DIR = $(SITEPREFIX)/man/man8
 DESTINSTALLSITEMAN8DIR = $(DESTDIR)$(INSTALLSITEMAN8DIR)
-INSTALLVENDORMAN8DIR = $(VENDORPREFIX)/man/man8
+INSTALLVENDORMAN8DIR = $(VENDORPREFIX)/share/man/man8
 DESTINSTALLVENDORMAN8DIR = $(DESTDIR)$(INSTALLVENDORMAN8DIR)
 MAN8EXT = 8
-INST_SYSCONFDIR = blib/etc
-INSTALLSYSCONFDIR = /etc
-DESTINSTALLSYSCONFDIR = $(DESTDIR)$(INSTALLSYSCONFDIR) 
+SBIN_FILES = sbin/id3fsd
+INST_SBINDIR = blib/sbin
+INSTALLSBINDIR = $(PERLPREFIX)/sbin
+DESTINSTALLSBINDIR = $(DESTDIR)$(INSTALLSBINDIR)
+INSTALLSITESBINDIR = $(SITEPREFIX)/sbin
+DESTINSTALLSITESBINDIR = $(DESTDIR)$(INSTALLSITESBINDIR)
+INSTALLVENDORSBINDIR = $(VENDORPREFIX)/sbin
+DESTINSTALLVENDORSBINDIR = $(DESTDIR)$(INSTALLVENDORSBINDIR)
 # end id3fs
 
 };
@@ -68,7 +76,7 @@ sub MY::top_targets {
     my $add = sprintf <<'MAKE_FRAG', $perlh, $perlh, $perlh, $perlh;
 
 # begin id3fs
-config :: $(INST_MAN8DIR)/.exists $(INST_SYSCONFDIR)/.exists
+config :: $(INST_MAN8DIR)/.exists $(INST_SBINDIR)/.exists
        @$(NOOP)
 
 $(INST_MAN8DIR)/.exists :: %s
@@ -76,11 +84,11 @@ $(INST_MAN8DIR)/.exists :: %s
        @$(EQUALIZE_TIMESTAMP) %s $(INST_MAN8DIR)/.exists
        -@$(CHMOD) $(PERM_RWX) $(INST_MAN8DIR)
 
-#$(INST_SYSCONFDIR)/.exists :: %s
-#      @$(MKPATH) $(INST_SYSCONFDIR)
-#      @$(EQUALIZE_TIMESTAMP) %s $(INST_SYSCONFDIR)/.exists
-#      -@$(CHMOD) $(PERM_RWX) $(INST_SYSCONFDIR)
-#      @$(CP) etc/matrc $(INST_SYSCONFDIR)
+$(INST_SBINDIR)/.exists :: %s
+       @$(MKPATH) $(INST_SBINDIR)
+       @$(EQUALIZE_TIMESTAMP) %s $(INST_SBINDIR)/.exists
+       -@$(CHMOD) $(PERM_RWX) $(INST_SBINDIR)
+       @$(CP) $(SBIN_FILES) $(INST_SBINDIR)
 # end id3fs
 
 MAKE_FRAG
@@ -101,16 +109,16 @@ sub MY::manifypods {
     {
        $pod2man=q{POD2MAN = $(POD2MAN_EXE)};
     }
-#    my $manifypods_local = sprintf <<'MAKE_FRAG', $pod2man;
-#
-## begin id3fs
-#%s
-#
-#manifypods-local : docs/mp3lintrc.pod
-#      $(POD2MAN) -s $(MAN8EXT) docs/mp3lintrc.pod $(INST_MAN8DIR)/mp3lintrc.$(MAN8EXT) 
-#
-##end id3fs
-#MAKE_FRAG
+    my $manifypods_local = sprintf <<'MAKE_FRAG', $pod2man;
+
+# begin id3fs
+%s
+
+manifypods-local : sbin/id3fsd
+       $(POD2MAN) -s $(MAN8EXT) sbin/id3fsd $(INST_MAN8DIR)/id3fsd.$(MAN8EXT)
+
+#end id3fs
+MAKE_FRAG
 
     return $inherited . "\n" . $manifypods_local;
 
@@ -121,9 +129,8 @@ sub MY::install {
 
   my $self = shift;
   my $inherited = $self->SUPER::install(@_);
-  my $conf="\t\t\$(INST_SYSCONFDIR) \$(DESTINSTALLSYSCONFDIR)";
-  $inherited =~ s/(^\s*\$\(INST_MAN)3(DIR\s*.*MAN)3(DIR\))/${1}3${2}3$3 \\\n${1}8${2}8$3 \\\n$conf/gm;
-# $inherited =~ s/(^\s*\$\(INST_MAN3DIR\s*.*MAN3DIR\))/$1 \\\n$conf/gm;
+  $inherited =~ s/(^\s*\$\(INST_)MAN3(DIR\s*.*)MAN3(DIR\))/${1}MAN3${2}MAN3${3} \\\n${1}SBIN${2}SBIN${3}/gm;
+  $inherited =~ s/(^\s*\$\(INST_MAN)3(DIR\s*.*MAN)3(DIR\))/${1}3${2}3$3 \\\n${1}8${2}8$3/gm;
 
   return $inherited;
 }