/[gentoo-perl]/g-cpan/trunk/bin/g-cpan
Gentoo

Diff of /g-cpan/trunk/bin/g-cpan

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

Revision 136 Revision 137
24use Log::Agent; 24use Log::Agent;
25use Log::Agent::Driver::File; 25use Log::Agent::Driver::File;
26use Log::Agent::Driver::Silent; 26use Log::Agent::Driver::Silent;
27 27
28use constant PATH_PKG_VAR => '/var/db/pkg/'; 28use constant PATH_PKG_VAR => '/var/db/pkg/';
29our $VERSION = "0.14.1_rc2"; 29our $VERSION = "0.15_rc2";
30my $prog = basename($0); 30my $prog = basename($0);
31 31
32##### Establish our tmpdir 32##### Establish our tmpdir
33unless ($ENV{TMPDIR}) { $ENV{TMPDIR} = '/var/tmp/g-cpan' } 33unless ($ENV{TMPDIR}) { $ENV{TMPDIR} = '/var/tmp/g-cpan' }
34 34
661 } 661 }
662} 662}
663 663
664sub strip_ends { 664sub strip_ends {
665 my $key = shift; 665 my $key = shift;
666 $ENV{$key} =~ s{\$}{}gxms;
667 $ENV{$key} =~ s{\\n}{ }gxms;
666 $ENV{$key} =~ s{\'}{}gmxs; 668 $ENV{$key} =~ s{\'}{}gmxs;
669 $ENV{$key} =~ s{\s+$}{};
667 return $ENV{$key}; 670 return $ENV{$key};
668} 671}
669 672
670sub stripdown { 673sub stripdown {
671 my $string = shift; 674 my $string = shift;

Legend:
Removed from v.136  
changed lines
  Added in v.137

  ViewVC Help
Powered by ViewVC 1.1.20