diff options
author | psyc://loupsycedyglgamf.onion/~lynX <ircs://psyced.org/youbroketheinternet> | 2016-08-10 15:28:58 +0000 |
---|---|---|
committer | psyc://loupsycedyglgamf.onion/~lynX <ircs://psyced.org/youbroketheinternet> | 2016-08-10 15:28:58 +0000 |
commit | e503c6b40fb5480090bdc6f29841e59a5212a3d7 (patch) | |
tree | c3662fdedf5cf66be94b08ba73bf0ba7346eecf0 /bin/psycamp | |
parent | 94c6660f0ac6c3420c496a0ddb67613cb7e74aff (diff) | |
download | perlpsyc-e503c6b40fb5480090bdc6f29841e59a5212a3d7.tar.gz perlpsyc-e503c6b40fb5480090bdc6f29841e59a5212a3d7.zip |
fixed -x option
Diffstat (limited to 'bin/psycamp')
-rwxr-xr-x | bin/psycamp | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/bin/psycamp b/bin/psycamp index ecdd32e..49ffd53 100755 --- a/bin/psycamp +++ b/bin/psycamp | |||
@@ -262,8 +262,12 @@ X | |||
262 | &load unless $opt_x; | 262 | &load unless $opt_x; |
263 | system "$ENV{EDITOR} $playlist;clear" if $opt_e; | 263 | system "$ENV{EDITOR} $playlist;clear" if $opt_e; |
264 | } | 264 | } |
265 | exec '$has_mplayer "`cat $playlist`"' if $opt_x; | 265 | if ($opt_x) { |
266 | #exec "mpg123 --remain --aggressive -@ $playlist" if $opt_x; | 266 | # "mpg123 --remain --aggressive -@ $playlist" |
267 | my $exec = $has_mplayer .' -fs -zoom -playlist '. $playlist; | ||
268 | print STDERR "\n$exec\n"; | ||
269 | exec $exec; | ||
270 | } | ||
267 | 271 | ||
268 | print STDERR BOLD, YELLOW, "binding to $opt_b ...\n", RESET if DEBUG & 16 && $opt_b; | 272 | print STDERR BOLD, YELLOW, "binding to $opt_b ...\n", RESET if DEBUG & 16 && $opt_b; |
269 | bind_uniform( $opt_b || $UNI ); | 273 | bind_uniform( $opt_b || $UNI ); |