diff options
Diffstat (limited to 'bin/db-iris')
| -rwxr-xr-x | bin/db-iris | 6 |
1 files changed, 3 insertions, 3 deletions
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"; |