#!/bin/sh
PATH="scripts:$PATH"
pcbe='perl -Ilib -MClipboard -e'
cb='perl -Ilib scripts/clipbrowse'
# BROWSER="firefox -remote \"openURL(%s,new-tab)\""
echo "# \$BROWSER == '$BROWSER'"
echo "# Using $cb"
$pcbe 'print qq[#  and $INC{"Clipboard.pm"}\n]'
check() {
    echo -n Checking "$1"
    $pcbe 'Clipboard->copy($ARGV[0])' "$1" || exit 1
    $cb || exit 1
    echo ' ok'
}
check 'http://cpan.org'
check cpan
check "'"
check '"'
check '()*&#(*&$;$$!!!#$@#'
