Changeset 29095
- Timestamp:
- 2014-06-12T12:17:39+12:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/printusage.pm
r21341 r29095 172 172 my $options = shift(@_); 173 173 my $params = shift(@_); 174 174 my $no_pager = shift(@_); 175 176 unless ($no_pager) { 175 177 # this causes us to automatically send output to a pager, if one is 176 178 # set, AND our output is going to a terminal … … 189 191 open(STDERR,">&STDOUT"); # so it's easier to pipe output 190 192 } 191 193 } 192 194 193 195
Note:
See TracChangeset
for help on using the changeset viewer.