-#!/usr/bin/env perl -w
+#!/usr/bin/env perl
# Copyright (C) 2007-2009 Martin A. Hansen.
# >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
+use warnings;
use strict;
use Maasha::Biopieces;
use Maasha::UCSC::BED;
while ( $record = Maasha::Biopieces::get_record( $in ) )
{
- $record = Maasha::UCSC::psl2record( $record ) if $record->{ 'tBaseInsert' }; # Dirty addition to allow Affy data from MySQL to be dumped
-
if ( $bed_entry = Maasha::UCSC::BED::biopiece2bed( $record, $options->{ 'cols' } ) ) {
Maasha::UCSC::BED::bed_entry_put( $bed_entry, $fh, $options->{ 'cols' }, $options->{ 'check' } );
}