auto-import perl-File-MimeInfo-0.13-2 on branch devel from

perl-File-MimeInfo-0.13-2.src.rpm

.cvsignore

@@ -0,0 +1 @@
+File-MimeInfo-0.13.tar.gz

perl-File-MimeInfo-0.13-no-ask-option.diff

@@ -0,0 +1,35 @@
+--- /usr/bin/mimeopen	2006-10-11 16:57:53.000000000 +0200
++++ mimeopen	2006-10-11 21:27:45.000000000 +0200
+@@ -24,6 +24,7 @@
+ 	'magic-only'	=> ['M'],
+ 	'ask'		=> ['a'],
+ 	'ask-default'	=> ['d'],
++	'no-ask'	=> ['n'],
+ );
+ 
+ while ((@ARGV) && ($ARGV[0] =~ /^-/)) {
+@@ -153,7 +154,10 @@
+ 	exit 6;
+ }
+ 
+-if ($args{ask}) {
++if ($args{'no-ask'}) {
++	$default = defined($default) ? $default : $other[0];
++}
++elsif ($args{ask}) {
+ 	$default = choose($mimetype, 0, grep defined($_), $default, @other);
+ }
+ elsif ($args{'ask-default'}) {
+@@ -305,6 +309,12 @@
+ 
+ Print the version of the program and exit.
+ 
++=item B<-n>, B<--no-ask>
++
++Don't ask the user which program to use. Choose the default program or the 
++first program known to handle the file mimetype. This does not set the 
++default application.
++
+ =back
+ 
+ =head1 BUGS

perl-File-MimeInfo.spec

@@ -0,0 +1,57 @@
+Name:           perl-File-MimeInfo
+Version:        0.13
+Release:        2%{?dist}
+Summary:        Determine file type and open application
+License:        GPL or Artistic
+Group:          Development/Libraries
+URL:            http://search.cpan.org/dist/File-MimeInfo/
+Source0:        http://www.cpan.org/authors/id/P/PA/PARDUS/File-MimeInfo/File-MimeInfo-%{version}.tar.gz
+Patch0:         perl-File-MimeInfo-0.13-no-ask-option.diff
+BuildRoot:      %{_tmppath}/%{name}-%{version}-%{release}-root-%(%{__id_u} -n)
+BuildArch:      noarch
+BuildRequires:  perl(File::BaseDir) perl(File::DesktopEntry)
+Requires:       perl(:MODULE_COMPAT_%(eval "`%{__perl} -V:version`"; echo $version))
+
+%description
+This module can be used to determine the mime type of a file. It tries to
+implement the freedesktop specification for a shared MIME database.
+
+%prep
+%setup -q -n File-MimeInfo-%{version}
+%patch0
+
+%build
+%{__perl} Makefile.PL INSTALLDIRS=vendor
+make %{?_smp_mflags}
+
+%install
+rm -rf $RPM_BUILD_ROOT
+
+make pure_install PERL_INSTALL_ROOT=$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
+
+%clean
+rm -rf $RPM_BUILD_ROOT
+
+%files
+%defattr(-,root,root,-)
+%doc Changes README
+%{_bindir}/mimeopen
+%{_bindir}/mimetype
+%{perl_vendorlib}/*
+%{_mandir}/man1/*
+%{_mandir}/man3/*
+
+%changelog
+* Wed Oct 11 2006 Patrice Dumas <pertusus@free.fr> 0.13-2
+- add an option to launch mimeopen non interactively
+
+* Wed Oct 11 2006 Patrice Dumas <pertusus@free.fr> 0.13-1
+- Specfile autogenerated by cpanspec 1.69.

sources

@@ -0,0 +1 @@
+f87b07e1608f4380bb3f53154ac671bb  File-MimeInfo-0.13.tar.gz