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