From bfd099f967429eafdacb15fa8823443b51042272 Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Fri, 24 Jan 2014 08:25:56 +0100 Subject: perlcritic --- bin/db-iris | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'bin') diff --git a/bin/db-iris b/bin/db-iris index f6de1e2..a54e3c1 100755 --- a/bin/db-iris +++ b/bin/db-iris @@ -56,7 +56,7 @@ my ($station) = @ARGV; $station = get_station($station); if ($date) { - my ( $day, $month, $year ) = split( /\./, $date ); + my ( $day, $month, $year ) = split( qr{ [.] }ox, $date ); $datetime->set( day => $day, month => $month, @@ -64,7 +64,7 @@ if ($date) { ); } if ($time) { - my ( $hour, $minute, $second ) = split( /:/, $time ); + my ( $hour, $minute, $second ) = split( qr{ : }ox, $time ); $datetime->set( hour => $hour, minute => $minute, @@ -156,7 +156,7 @@ sub display_result { } if ( $edata{qos} and $d->qos_messages ) { printf( ' %s', - join( ' ', map { $_->[1] } ( reverse $d->qos_messages ) ) ); + join( q{ }, map { $_->[1] } ( reverse $d->qos_messages ) ) ); } print "\n"; -- cgit v1.2.3