1#!/bin/sh
2PATH="scripts:$PATH"
3pcbe='perl -Ilib -MClipboard -e'
4cb='perl -Ilib scripts/clipbrowse'
5# BROWSER="firefox -remote \"openURL(%s,new-tab)\""
6echo "# \$BROWSER == '$BROWSER'"
7echo "# Using $cb"
8$pcbe 'print qq[#  and $INC{"Clipboard.pm"}\n]'
9check() {
10    echo -n Checking "$1"
11    $pcbe 'Clipboard->copy($ARGV[0])' "$1" || exit 1
12    $cb || exit 1
13    echo ' ok'
14}
15check 'http://cpan.org'
16check cpan
17check "'"
18check '"'
19check '()*&#(*&$;$$!!!#$@#'
20