- Timestamp:
- May 24, 2012, 12:12:08 AM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
devel/pb-modules/lib/ProjectBuilder/Base.pm
r1564 r1585 279 279 sub pb_log { 280 280 281 my $dlevel = shift; 282 my $msg = shift; 281 my $dlevel = shift || 0; 282 my $msg = shift || ""; 283 284 $pbLOG = \*STDOUT if (not defined $pbLOG); 283 285 284 286 print $pbLOG "$msg" if ($dlevel <= $pbdebug); … … 372 374 sub pb_syntax { 373 375 374 my $exit_status = shift || -1;375 my $verbose_level = shift || 0;376 my $exit_status = shift; 377 my $verbose_level = shift; 376 378 377 379 my $filehandle = \*STDERR; 378 380 381 # Don't do it upper as before as when the value is 0 382 # it is considered false and then exit was set to -1 383 $exit_status = -1 if (not defined $exit_status); 384 $verbose_level = 0 if (not defined $verbose_level); 385 379 386 $filehandle = \*STDOUT if ($exit_status == 0); 380 387 381 pod2usage( {-message => $pbsynmsg,382 -exitval => $exit_status,383 384 -output => $filehandle });388 pod2usage( -message => $pbsynmsg, 389 -exitval => $exit_status, 390 -verbose => $verbose_level, 391 -output => $filehandle ); 385 392 } 386 393
Note:
See TracChangeset
for help on using the changeset viewer.