@@ -1,30 +0,0 @@
-#!/usr/bin/perl
-
-use Module::Build;
-
-my $build = Module::Build->new(
- dist_name => 'File-DesktopEntry',
- dist_version_from => 'lib/File/DesktopEntry.pm',
- dist_author => 'Jaap Karssenberg <pardus@cpan.org>',
- license => 'perl',
- requires => {
- 'perl' => '5.8.6',
- 'Carp' => 0,
- 'File::Spec' => 0,
- 'File::Path' => 0,
- 'File::BaseDir' => '0.03',
- ($^O eq 'MSWin32' ? (
- 'Win32::Process' => 0,
- ) : ()),
-
- },
- build_requires => {
- 'Module::Build' => '0.24',
- 'Test::More' => 0,
- },
- create_makefile_pl => 'passthrough',
- #dynamic_config => 1,
-);
-
-$build->create_build_script;
-
@@ -1,22 +1,32 @@
-0.05 Wed Jun 5 2013
- - Fixed tests on Windows - RT 45669
- - Set perl 5.8.6 as minimum version - RT 42770 - ANDK
- - Fixed link to freedesktop.org - RT 37320 - GWOLF
+0.08 2013-10-07
+ - Corrected build instructinos.
-0.04 Sun Nov 4 2007
+0.07 2013-10-03
+ - Fixed dependency on Win32 module.
+
+0.06 2013-10-03
+ - Switched to EU::MM
+ - POD fix - RT 89116 - GWOLF
+
+0.05 2013-06-05
+ - Fixed tests on Windows - RT 45669
+ - Set perl 5.8.6 as minimum version - RT 42770 - ANDK
+ - Fixed link to freedesktop.org - RT 37320 - GWOLF
+
+0.04 2007-11-04
Hot fix release - POSIX does not export LC_MESSAGES on all platforms
- - Removed POSIX dependency
+ - Removed POSIX dependency
-0.03 Sun Nov 4 2007
- - Added support for writing Desktop Entry files
- - Updated to version 1.0 of the specification
- - Added much more sanity checks while handling data
- - Extended unit tests to almost full coverage
- - Added support for basic functions on Windows
+0.03 2007-11-04
+ - Added support for writing Desktop Entry files
+ - Updated to version 1.0 of the specification
+ - Added much more sanity checks while handling data
+ - Extended unit tests to almost full coverage
+ - Added support for basic functions on Windows
-0.02 Sat Oct 8 2005
- - Fixed proper conversion between paths and uris
- - Added wants_list() and wants_uris()
+0.02 2005-10-08
+ - Fixed proper conversion between paths and uris
+ - Added wants_list() and wants_uris()
-0.01 Mon Oct 3 2005
- - Initial Release
+0.01 2005-10-03
+ - Initial Release
@@ -1,9 +1,8 @@
-Build.PL
Changes
-configure
lib/File/DesktopEntry.pm
Makefile.PL
MANIFEST
+META.json
META.yml
README
t/01_data.t
@@ -11,5 +10,5 @@ t/02_DesktopEntry.t
t/03_run.t
t/04_pod_ok.t
t/05_pod_cover.t
+t/06_changes.t
t/applications/foo.desktop
-META.json
@@ -1,10 +1,10 @@
{
- "abstract" : "Object to handle .desktop files",
+ "abstract" : "Module to handle .desktop files",
"author" : [
"Jaap Karssenberg <pardus@cpan.org>"
],
"dynamic_config" : 1,
- "generated_by" : "Module::Build version 0.4005, CPAN::Meta::Converter version 2.130880",
+ "generated_by" : "ExtUtils::MakeMaker version 6.78, CPAN::Meta::Converter version 2.132661",
"license" : [
"perl_5"
],
@@ -13,39 +13,37 @@
"version" : "2"
},
"name" : "File-DesktopEntry",
+ "no_index" : {
+ "directory" : [
+ "t",
+ "inc"
+ ]
+ },
"prereqs" : {
"build" : {
"requires" : {
- "Module::Build" : "0.24",
- "Test::More" : "0"
+ "Carp" : "0",
+ "File::BaseDir" : "0.03",
+ "File::Path" : "0",
+ "File::Spec" : "0"
}
},
"configure" : {
"requires" : {
- "Module::Build" : "0.40"
+ "ExtUtils::MakeMaker" : "6.30"
}
},
"runtime" : {
"requires" : {
- "Carp" : "0",
- "File::BaseDir" : "0.03",
- "File::Path" : "0",
- "File::Spec" : "0",
- "perl" : "v5.8.6"
+ "perl" : "5.008006"
}
}
},
- "provides" : {
- "File::DesktopEntry" : {
- "file" : "lib/File/DesktopEntry.pm",
- "version" : "0.05"
- }
- },
"release_status" : "stable",
"resources" : {
- "license" : [
- "http://dev.perl.org/licenses/"
- ]
+ "repository" : {
+ "url" : "https://github.com/mbeijen/File-DesktopEntry"
+ }
},
- "version" : "0.05"
+ "version" : 0.08
}
@@ -1,29 +1,27 @@
---
-abstract: 'Object to handle .desktop files'
+abstract: 'Module to handle .desktop files'
author:
- 'Jaap Karssenberg <pardus@cpan.org>'
build_requires:
- Module::Build: 0.24
- Test::More: 0
+ Carp: 0
+ File::BaseDir: 0.03
+ File::Path: 0
+ File::Spec: 0
configure_requires:
- Module::Build: 0.40
+ ExtUtils::MakeMaker: 6.30
dynamic_config: 1
-generated_by: 'Module::Build version 0.4005, CPAN::Meta::Converter version 2.130880'
+generated_by: 'ExtUtils::MakeMaker version 6.78, CPAN::Meta::Converter version 2.132661'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
version: 1.4
name: File-DesktopEntry
-provides:
- File::DesktopEntry:
- file: lib/File/DesktopEntry.pm
- version: 0.05
+no_index:
+ directory:
+ - t
+ - inc
requires:
- Carp: 0
- File::BaseDir: 0.03
- File::Path: 0
- File::Spec: 0
- perl: v5.8.6
+ perl: 5.008006
resources:
- license: http://dev.perl.org/licenses/
-version: 0.05
+ repository: https://github.com/mbeijen/File-DesktopEntry
+version: 0.08
@@ -1,35 +1,40 @@
-# Note: this file was auto-generated by Module::Build::Compat version 0.4005
-require 5.008006;
+use strict;
+use warnings;
- unless (eval "use Module::Build::Compat 0.02; 1" ) {
- print "This module requires Module::Build to install itself.\n";
+use 5.006001;
- require ExtUtils::MakeMaker;
- my $yn = ExtUtils::MakeMaker::prompt
- (' Install Module::Build now from CPAN?', 'y');
+use ExtUtils::MakeMaker;
- unless ($yn =~ /^y/i) {
- die " *** Cannot install without Module::Build. Exiting ...\n";
- }
-
- require Cwd;
- require File::Spec;
- require CPAN;
-
- # Save this 'cause CPAN will chdir all over the place.
- my $cwd = Cwd::cwd();
-
- CPAN::Shell->install('Module::Build::Compat');
- CPAN::Shell->expand("Module", "Module::Build::Compat")->uptodate
- or die "Couldn't install Module::Build, giving up.\n";
-
- chdir $cwd or die "Cannot chdir() back to $cwd: $!";
- }
- eval "use Module::Build::Compat 0.02; 1" or die $@;
-
- Module::Build::Compat->run_build_pl(args => \@ARGV);
- my $build_script = 'Build';
- $build_script .= '.com' if $^O eq 'VMS';
- exit(0) unless(-e $build_script); # cpantesters convention
- require Module::Build;
- Module::Build::Compat->write_makefile(build_class => 'Module::Build');
+WriteMakefile
+ (
+ 'NAME' => 'File::DesktopEntry',
+ 'ABSTRACT' => 'Module to handle .desktop files',
+ 'AUTHOR' => 'Jaap Karssenberg <pardus@cpan.org>',
+ 'DISTNAME' => "File-DesktopEntry",
+ 'VERSION_FROM' => 'lib/File/DesktopEntry.pm',
+ 'LICENSE' => 'perl',
+ 'MIN_PERL_VERSION' => '5.8.6',
+ 'BUILD_REQUIRES' => {
+ 'Carp' => 0,
+ 'File::Spec' => 0,
+ 'File::Path' => 0,
+ 'File::BaseDir' => '0.03',
+ ($^O eq 'MSWin32' ? ('Win32::Process' => 0) : ()),
+ },
+ 'CONFIGURE_REQUIRES' => {
+ "ExtUtils::MakeMaker" => "6.30"
+ },
+ 'LIBS' => [''], # e.g., '-lm'
+ 'dist' => {
+ COMPRESS => "gzip -9f",
+ SUFFIX => "gz",
+ },
+ 'test' => {
+ 'TESTS' => "t/*.t"
+ },
+ META_MERGE => {
+ resources => {
+ repository => 'https://github.com/mbeijen/File-DesktopEntry',
+ },
+ },
+ );
@@ -6,31 +6,38 @@ as specified by the Freedesktop.org specification.
INSTALLATION
-To install this module type the following:
+The easiest is installation using your cpan client. This will
+take care of installing any dependencies:
- perl Build.PL
- ./Build
- ./Build test
- ./Build install
+ cpan File::DesktopEntry
+
+To install this module manually type the following:
+
+ perl Makefile.PL
+ make
+ make test
+ make install
DEPENDENCIES
This module requires these other modules which can be obtained from
the CPAN <http://cpan.org> if they are not already installed on
-your system :
+your system:
Carp
File::Spec
File::Path
File::BaseDir
-On windows you will also need :
+On windows you will also need:
Win32::Process
COPYRIGHT AND LICENCE
-Copyright (c) 2005, 2007 Jaap G Karssenberg. All rights reserved.
+Copyright (c) 2005, 2007 Jaap G Karssenberg.
+Maintained by Michiel Beijen.
+
+All rights reserved.
This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.
-
@@ -1,2 +0,0 @@
-#!/bin/sh
-exec perl ./Makefile.PL "$@"
@@ -1,12 +1,14 @@
package File::DesktopEntry;
use strict;
+use warnings;
+
use vars qw/$AUTOLOAD/;
use Carp;
use File::Spec;
use File::BaseDir 0.03 qw/data_files data_home/;
-our $VERSION = 0.05;
+our $VERSION = 0.08;
our $VERBOSE = 0;
if ($^O eq 'MSWin32') {
@@ -487,9 +489,9 @@ sub _group { # returns index for a group name
return undef;
}
-=item C<set(KEY => VALUE, ...)>
+=item C<set(KEY =E<gt> VALUE, ...)>
-=item C<set(GROUP, KEY => VALUE, ...)>
+=item C<set(GROUP, KEY =E<gt> VALUE, ...)>
Set values for one or more keys. If GROUP is not given "Desktop Entry" is used.
All values are treated as strings, backslashes, newlines and tabs are escaped.
@@ -501,7 +503,7 @@ E.g. C<< $entry->set("Name[nl_NL]" => "Tekst Verwerker") >> will set a Dutch
translation for the Name key. Using either "Name[C]" or "Name[POSIX]" will
be equivalent with not giving a language argument.
-When setting the the Exec key without specifying a group it will be parsed
+When setting the Exec key without specifying a group it will be parsed
and quoted correctly as required by the spec. You can use quoted arguments
to include whitespace in a argument, escaping whitespace does not work.
To circumvent this quoting explicitly give the group name 'Desktop Entry'.
@@ -525,7 +527,7 @@ sub set {
my ($k, $v) = splice(@data, 0, 2);
$k =~ s/\[(C|POSIX)\]$//; # remove default locale
my ($word) = ($k =~ /^(.*?)(\[.*?\])?$/);
- # seperate key and locale
+ # separate key and locale
croak "BUG: Key missing: $k" unless length $word;
carp "Key contains invalid characters: $k"
if $word =~ /[^A-Za-z0-9-]/;
@@ -536,7 +538,6 @@ sub set {
$$self{groups}[$i] =~ s/^\Q$k\E=.*$/$k=$v/m and next;
$$self{groups}[$i] .= "$k=$v\n";
}
- #use Data::Dumper; warn Dumper $self;
}
=item C<text()>
@@ -819,8 +820,11 @@ There is no support for Legacy-Mixed Encoding. Everybody is using utf8 now
=head1 AUTHOR
Jaap Karssenberg (Pardus) E<lt>pardus@cpan.orgE<gt>
+Maintained by Michiel Beijen E<lt>michielb@cpan.org<gt>
Copyright (c) 2005, 2007 Jaap G Karssenberg. All rights reserved.
+
+=head1 LICENSE
This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.
@@ -10,7 +10,7 @@ $| = 1;
print "1..4\n";
-my $perl = Module::Build->current->perl;
+my $perl = $^X;
my $entry = File::DesktopEntry->new();
$entry->set(
@@ -0,0 +1,4 @@
+use Test::More;
+eval 'use Test::CPAN::Changes';
+plan skip_all => 'Test::CPAN::Changes required for this test' if $@;
+changes_ok();