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