r38565 - in /trunk/libenv-ps1-perl: Changes MANIFEST MANIFEST.SKIP META.yml Makefile.PL debian/changelog debian/control example.pl lib/Env/PS1.pm
ryan52-guest at users.alioth.debian.org
ryan52-guest at users.alioth.debian.org
Wed Jun 24 05:57:46 UTC 2009
Author: ryan52-guest
Date: Wed Jun 24 05:57:40 2009
New Revision: 38565
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=38565
Log:
* New upstream release
* Debian Policy 3.8.2
Added:
trunk/libenv-ps1-perl/MANIFEST.SKIP
- copied unchanged from r38564, branches/upstream/libenv-ps1-perl/current/MANIFEST.SKIP
Modified:
trunk/libenv-ps1-perl/Changes
trunk/libenv-ps1-perl/MANIFEST
trunk/libenv-ps1-perl/META.yml
trunk/libenv-ps1-perl/Makefile.PL
trunk/libenv-ps1-perl/debian/changelog
trunk/libenv-ps1-perl/debian/control
trunk/libenv-ps1-perl/example.pl
trunk/libenv-ps1-perl/lib/Env/PS1.pm
Modified: trunk/libenv-ps1-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libenv-ps1-perl/Changes?rev=38565&op=diff
==============================================================================
--- trunk/libenv-ps1-perl/Changes (original)
+++ trunk/libenv-ps1-perl/Changes Wed Jun 24 05:57:40 2009
@@ -1,5 +1,14 @@
Revision history for Env-PS1 - prompt string formatter
========================================================
+
+0.06 Tue Jun 23 2009
+ Minor bug fix release
+
+ - New Maintainer, thanks to Jaap for all the work thus far.
+ - Fix \w and \W when the current directory is $HOME (should show a tilde)
+ - work with the PS1='$(foobar)' style of command substitution
+ - check for existance of the CLICOLOR env var before using it,
+ thanks to Phil Pennock for the patch (RT #13074)
0.05 Mon Nov 22 2004
Maintenance release
Modified: trunk/libenv-ps1-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libenv-ps1-perl/MANIFEST?rev=38565&op=diff
==============================================================================
--- trunk/libenv-ps1-perl/MANIFEST (original)
+++ trunk/libenv-ps1-perl/MANIFEST Wed Jun 24 05:57:40 2009
@@ -4,6 +4,7 @@
lib/Env/PS1.pm
Makefile.PL
MANIFEST This list of files
+MANIFEST.SKIP
META.yml
README
t/00_usage.t
Modified: trunk/libenv-ps1-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libenv-ps1-perl/META.yml?rev=38565&op=diff
==============================================================================
--- trunk/libenv-ps1-perl/META.yml (original)
+++ trunk/libenv-ps1-perl/META.yml Wed Jun 24 05:57:40 2009
@@ -1,10 +1,12 @@
---- #YAML:1.0
+---
name: Env-PS1
-version: 0.05
+version: 0.06
author:
- - Jaap Karssenberg <pardus at cpan.org>
+ - 'Jaap Karssenberg <pardus at cpan.org>'
abstract: prompt string formatter
license: perl
+resources:
+ license: http://dev.perl.org/licenses/
requires:
AutoLoader: 0
POSIX: 0
@@ -14,5 +16,8 @@
provides:
Env::PS1:
file: lib/Env/PS1.pm
- version: 0.05
-generated_by: Module::Build version 0.2604
+ version: 0.06
+generated_by: Module::Build version 0.33
+meta-spec:
+ url: http://module-build.sourceforge.net/META-spec-v1.4.html
+ version: 1.4
Modified: trunk/libenv-ps1-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libenv-ps1-perl/Makefile.PL?rev=38565&op=diff
==============================================================================
--- trunk/libenv-ps1-perl/Makefile.PL (original)
+++ trunk/libenv-ps1-perl/Makefile.PL Wed Jun 24 05:57:40 2009
@@ -1,4 +1,4 @@
-# Note: this file was auto-generated by Module::Build::Compat version 0.03
+# Note: this file was auto-generated by Module::Build::Compat version 0.33
unless (eval "use Module::Build::Compat 0.02; 1" ) {
print "This module requires Module::Build to install itself.\n";
@@ -17,15 +17,18 @@
# Save this 'cause CPAN will chdir all over the place.
my $cwd = Cwd::cwd();
- my $makefile = File::Spec->rel2abs($0);
- CPAN::Shell->install('Module::Build::Compat')
- or die " *** Cannot install without Module::Build. Exiting ...\n";
+ 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 $@;
- use lib '_build/lib';
+
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');
Modified: trunk/libenv-ps1-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libenv-ps1-perl/debian/changelog?rev=38565&op=diff
==============================================================================
--- trunk/libenv-ps1-perl/debian/changelog (original)
+++ trunk/libenv-ps1-perl/debian/changelog Wed Jun 24 05:57:40 2009
@@ -1,8 +1,13 @@
-libenv-ps1-perl (0.05-4) UNRELEASED; urgency=low
+libenv-ps1-perl (0.06-1) UNRELEASED; urgency=low
+ [ Nathan Handler ]
* debian/watch: Update to ignore development releases.
- -- Nathan Handler <nhandler at ubuntu.com> Sat, 06 Jun 2009 01:34:00 +0000
+ [ Ryan Niebur ]
+ * New upstream release
+ * Debian Policy 3.8.2
+
+ -- Ryan Niebur <ryanryan52 at gmail.com> Tue, 23 Jun 2009 22:57:30 -0700
libenv-ps1-perl (0.05-3) unstable; urgency=low
Modified: trunk/libenv-ps1-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libenv-ps1-perl/debian/control?rev=38565&op=diff
==============================================================================
--- trunk/libenv-ps1-perl/debian/control (original)
+++ trunk/libenv-ps1-perl/debian/control Wed Jun 24 05:57:40 2009
@@ -5,7 +5,7 @@
Build-Depends-Indep: perl (>= 5.8.0-7), perl-modules (>= 5.10) | libmodule-build-perl
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
Uploaders: Ryan Niebur <ryanryan52 at gmail.com>
-Standards-Version: 3.8.1
+Standards-Version: 3.8.2
Homepage: http://search.cpan.org/dist/Env-PS1/
Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libenv-ps1-perl/
Vcs-Browser: http://svn.debian.org/viewsvn/pkg-perl/trunk/libenv-ps1-perl/
Modified: trunk/libenv-ps1-perl/example.pl
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libenv-ps1-perl/example.pl?rev=38565&op=diff
==============================================================================
--- trunk/libenv-ps1-perl/example.pl (original)
+++ trunk/libenv-ps1-perl/example.pl Wed Jun 24 05:57:40 2009
@@ -1,9 +1,6 @@
#!/usr/bin/perl
-use lib './blib/lib/';
-
-die "Please run \"perl Build.PL && ./Build\" first\n" unless -d './blib/lib/';
-eval 'use Env::PS1 qw/$PS1/';
+use Env::PS1 qw/$PS1/;
my @demo = (
username => '\u',
Modified: trunk/libenv-ps1-perl/lib/Env/PS1.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libenv-ps1-perl/lib/Env/PS1.pm?rev=38565&op=diff
==============================================================================
--- trunk/libenv-ps1-perl/lib/Env/PS1.pm (original)
+++ trunk/libenv-ps1-perl/lib/Env/PS1.pm Wed Jun 24 05:57:40 2009
@@ -4,7 +4,7 @@
use Carp;
use AutoLoader 'AUTOLOAD';
-our $VERSION = 0.05;
+our $VERSION = 0.06;
our $_getpwuid = eval { getpwuid($>) }; # Not supported on some platforms
@@ -41,11 +41,15 @@
$format =~ s#(\\\\)|(?<!\\)\$(?:(\w+)|\{(.*?)\})#
$1 ? '\\\\' : $2 ? $ENV{$2} : $ENV{$3}
#ge;
- unless ($format eq $$self{format} and $ENV{CLICOLOR} eq $$self{clicolor}) {
+ unless ($format eq $$self{format} and exists $ENV{CLICOLOR}
+ and $ENV{CLICOLOR} eq $$self{clicolor}) {
@$self{qw/format clicolor/} = ($format, $ENV{CLICOLOR});
$$self{cache} = [ $self->cache($format) ];
}
my $string = join '', map { ref($_) ? $_->() : $_ } @{$$self{cache}};
+ $string =~ s#\$\((.+)\)#
+ `$1`;
+ #ge;
return $string;
}
@@ -107,9 +111,12 @@
sub U { $user_info[0] || $ENV{USER} || $ENV{LOGNAME} }
sub W {
- return sub { $ENV{PWD} } if $_[1] eq 'w';
+ return sub { $ENV{PWD} eq $ENV{HOME} ? "~" : $ENV{PWD} } if $_[1] eq 'w';
return sub {
return '/' if $ENV{PWD} eq '/';
+ if($ENV{PWD} eq $ENV{HOME}) {
+ return "~";
+ }
$ENV{PWD} =~ m#([^/]*)/?$#;
return $1;
};
@@ -536,7 +543,10 @@
Jaap Karssenberg || Pardus [Larus] E<lt>pardus at cpan.orgE<gt>
+This module is currently maintained by Ryan Niebur E<lt>rsn at cpan.orgE<gt>
+
Copyright (c) 2004 Jaap G Karssenberg. All rights reserved.
+Copyright (c) 2009 Ryan Niebur.
This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.
More information about the Pkg-perl-cvs-commits
mailing list