Changeset 1506 in ProjectBuilder for devel/pb-modules/lib/ProjectBuilder/Base.pm
- Timestamp:
- May 9, 2012, 2:46:34 AM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
devel/pb-modules/lib/ProjectBuilder/Base.pm
r1505 r1506 41 41 42 42 our @ISA = qw(Exporter); 43 our @EXPORT = qw(pb_mkdir_p pb_system pb_rm_rf pb_get_date pb_log pb_log_init pb_get_uri pb_get_content pb_set_content pb_display_file pb_syntax_init pb_syntax pb_temp_init pb_get_arch pb_get_osrelease pb_check_requirements pb_check_req $pbdebug $pbLOG $pbdisplaytype $pblocale);43 our @EXPORT = qw(pb_mkdir_p pb_system pb_rm_rf pb_get_date pb_log pb_log_init pb_get_uri pb_get_content pb_set_content pb_display_file pb_syntax_init pb_syntax pb_temp_init pb_get_arch pb_get_osrelease pb_check_requirements pb_check_req pb_path_expand $pbdebug $pbLOG $pbdisplaytype $pblocale); 44 44 ($VERSION,$REVISION) = pb_version_init(); 45 45 … … 153 153 unlink("$ENV{'PBTMP'}/system.$$.log") if (-f "$ENV{'PBTMP'}/system.$$.log"); 154 154 $redir = "2>> $ENV{'PBTMP'}/system.$$.log 1>> $ENV{'PBTMP'}/system.$$.log" if ((! defined $verbose) || ($verbose ne "noredir")); 155 156 # If sudo used, then be more verbose 157 pb_log(0,"Executing $cmd\n") if (($pbdebug < 1) && ($cmd =~ /^\s*\S*sudo/o)); 158 155 159 system("$cmd $redir"); 156 160 my $res = $?; … … 494 498 } 495 499 500 =item B<pb_path_expand> 501 502 Expand out a path by environment variables as ($ENV{XXX}) and ~ 503 504 =cut 505 506 sub pb_path_expand { 507 508 my $path = shift; 509 510 eval { $path =~ s/(\$ENV.+\})/$1/eeg; }; 511 $path =~ s/^\~/$ENV{HOME}/; 512 513 return($path); 514 } 515 496 516 =back 497 517
Note:
See TracChangeset
for help on using the changeset viewer.