wip

[dweather.git] / DWeather / lib / DWeather / Serial.pm

diff --git a/DWeather/lib/DWeather/Serial.pm b/DWeather/lib/DWeather/Serial.pm
index 44da24f7cbe7a2fde0db1f00822deb8d852d22c7..40ac1607c343efc8b0c42c0e8c549a069942ae7a 100644 (file)
--- a/DWeather/lib/DWeather/Serial.pm
+++ b/DWeather/lib/DWeather/Serial.pm
@@ -4,7 +4,7 @@
 
 use strict;
 
-package Serial;
+package DWeather::Serial;
 
 use POSIX qw(:termios_h);
 use Fcntl;
@@ -87,4 +87,10 @@ sub close
        $self->SUPER::close;
 }
 
+sub DESTROY
+{
+       my $self = shift;
+       $self->close;
+}
+
 1;