Changeset 195
Legend:
- Unmodified
- Added
- Removed
-
shepherd
r193 r195 156 156 # Any options Shepherd doesn't understand, we'll pass to the grabber(s) 157 157 Getopt::Long::Configure(qw/pass_through/); 158 158 &get_command_line_options; 159 160 if ($opt->{version}) { print "$version\n"; exit 0; } # This is horrible 159 161 $| = 1; 160 162 print ucfirst($progname) . " v$version\n\n"; 161 162 &get_command_line_options;163 163 164 164 exit 0 if ($opt->{version});
