|
Lines 33-38
Link Here
|
| 33 |
#====================================================================== |
33 |
#====================================================================== |
| 34 |
# $output is the last argument if it looks like a file (it has an extension) |
34 |
# $output is the last argument if it looks like a file (it has an extension) |
| 35 |
# $flavour is the first argument if it doesn't look like a file |
35 |
# $flavour is the first argument if it doesn't look like a file |
|
|
36 |
srand($ENV{SOURCE_DATE_EPOCH} || time); |
| 36 |
$output = $#ARGV >= 0 && $ARGV[$#ARGV] =~ m|\.\w+$| ? pop : undef; |
37 |
$output = $#ARGV >= 0 && $ARGV[$#ARGV] =~ m|\.\w+$| ? pop : undef; |
| 37 |
$flavour = $#ARGV >= 0 && $ARGV[0] !~ m|\.| ? shift : undef; |
38 |
$flavour = $#ARGV >= 0 && $ARGV[0] !~ m|\.| ? shift : undef; |
| 38 |
|
39 |
|