#!/usr/local/bin/perl -w

#fixtripleslash.pl to test for triple slashes and remove one of them
#replace result in env. var. OBJ

$obj=$ENV{OBJ};
$obj=~ s!///!//!;
$ENV{OBJ}=$obj;