summaryrefslogtreecommitdiff
path: root/bin/db-iris
diff options
context:
space:
mode:
authorDaniel Friesel <derf@finalrewind.org>2014-01-24 08:25:56 +0100
committerDaniel Friesel <derf@finalrewind.org>2014-01-24 08:25:56 +0100
commitbfd099f967429eafdacb15fa8823443b51042272 (patch)
tree0e985580cbe66a9fdd0b1dd6a8f548dacb5bc3f4 /bin/db-iris
parentc29f487ec8dda9b156ae924cc00cc6a72b31a495 (diff)
perlcritic
Diffstat (limited to 'bin/db-iris')
-rwxr-xr-xbin/db-iris6
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";