- Timestamp:
- Sep 27, 2012, 2:28:28 PM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
devel/pb-modules/lib/ProjectBuilder/Base.pm
r1604 r1647 18 18 use Cwd; 19 19 use File::Path; 20 use File::Temp qw(tempdir);21 20 use Data::Dumper; 22 21 use Time::localtime qw(localtime); 23 use Pod::Usage;24 22 use English; 25 23 use POSIX qw(locale_h); … … 386 384 $filehandle = \*STDOUT if ($exit_status == 0); 387 385 388 pod2usage( -message => $pbsynmsg, 386 eval { 387 require Pod::Usage; 388 Pod::Usage->import(); 389 }; 390 if ($@) { 391 # No Pod::Usage found not printing usage. Ole perl only 392 } else { 393 pod2usage( -message => $pbsynmsg, 389 394 -exitval => $exit_status, 390 395 -verbose => $verbose_level, 391 396 -output => $filehandle ); 392 397 } 398 } 393 399 394 400 =item B<pb_temp_init> … … 403 409 $ENV{'TMPDIR'}="/tmp"; 404 410 } 405 $ENV{'PBTMP'} = tempdir( "pb.XXXXXXXXXX", DIR => $ENV{'TMPDIR'}, CLEANUP => 1 ); 411 412 # Makes this function compatible with perl 5.005x 413 eval { 414 require File::Temp; 415 File::Temp->import("tempdir"); 416 }; 417 if ($@) { 418 # File::Temp not found, harcoding stuff 419 # Inspired by http://cpansearch.perl.org/src/TGUMMELS/File-MkTemp-1.0.6/File/MkTemp.pm 420 # Copyright 1999|2000 Travis Gummels. All rights reserved. 421 # This may be used and modified however you want. 422 my $template = "pb.XXXXXXXXXX"; 423 my @template = split //, $template; 424 my @letters = split(//,"1234567890abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"); 425 for (my $i = $#template; $i >= 0 && ($template[$i] eq 'X'); $i--){ 426 $template[$i] = $letters[int(rand 52)]; 427 } 428 undef $template; 429 $template = pack "a" x @template, @template; 430 pb_mkdir_p("$ENV{'TMPDIR'}/$template"); 431 } else { 432 $ENV{'PBTMP'} = tempdir( "pb.XXXXXXXXXX", DIR => $ENV{'TMPDIR'}, CLEANUP => 1 ); 433 } 406 434 } 407 435
Note:
See TracChangeset
for help on using the changeset viewer.