Changeset 1907 in ProjectBuilder for devel/pb-modules/lib/ProjectBuilder/Base.pm
- Timestamp:
- Oct 10, 2014, 11:32:12 AM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
devel/pb-modules/lib/ProjectBuilder/Base.pm
r1903 r1907 146 146 my $cmd=shift; 147 147 my $cmt=shift || $cmd; 148 my $verbose=shift || undef;148 my $verbose=shift; 149 149 my $redir = ""; 150 150 … … 201 201 sub pb_get_uri { 202 202 203 my $uri = shift || undef;203 my $uri = shift; 204 204 205 205 pb_log(2,"DEBUG: uri:" . (defined $uri ? $uri : '') . "\n"); … … 252 252 sub pb_log_init { 253 253 254 $pbdebug = shift || 0; 255 $pbLOG = shift || \*STDOUT; 254 $pbdebug = shift; 255 $pbLOG = shift; 256 257 $pbdebug = 0 if (not defined $pbdebug); 258 $pbLOG = \*STDOUT if (not defined $pbLOG); 256 259 pb_log(1,"Debug value: $pbdebug\n"); 257 260 … … 278 281 sub pb_log { 279 282 280 my $dlevel = shift || 0; 281 my $msg = shift || ""; 282 283 my $dlevel = shift; 284 my $msg = shift; 285 286 $dlevel = 0 if (not defined $dlevel); 287 $msg = "" if (not defined $msg); 283 288 $pbLOG = \*STDOUT if (not defined $pbLOG); 284 289 … … 361 366 sub pb_exit { 362 367 363 my $ret = shift || 0; 368 my $ret = shift; 369 $ret = 0 if (not defined $ret); 364 370 pb_log(0,"Please remove manually $ENV{'PBTMP'} after debug analysis\n") if ($pbdebug > 1); 365 371 exit($ret); … … 426 432 sub pb_temp_init { 427 433 428 my $pbkeep = shift || 0; # Do not keep temp files by default 434 my $pbkeep = shift; 435 436 # Do not keep temp files by default 437 $pbkeep = 0 if (not defined $pbkeep); 429 438 430 439 if (not defined $ENV{'TMPDIR'}) { … … 504 513 sub pb_check_requirements { 505 514 506 my $req = shift || undef;507 my $opt = shift || undef;508 my $appname = shift || undef;515 my $req = shift; 516 my $opt = shift; 517 my $appname = shift; 509 518 510 519 my ($req2,$opt2) = (undef,undef);
Note:
See TracChangeset
for help on using the changeset viewer.