packages: perl-Device-USB-PCSensor-HidTEMPer/temper_mon.pl - cleanups, make...

[glen]

Author: glen                         Date: Sat Aug 13 04:16:50 2011 GMT
Module: packages                      Tag: HEAD
---- Log message:
- cleanups, make compatible with perl 5.8

---- Files affected:
packages/perl-Device-USB-PCSensor-HidTEMPer:
   temper_mon.pl (1.1 -> 1.2) 

---- Diffs:

================================================================
Index: packages/perl-Device-USB-PCSensor-HidTEMPer/temper_mon.pl
diff -u packages/perl-Device-USB-PCSensor-HidTEMPer/temper_mon.pl:1.1 packages/perl-Device-USB-PCSensor-HidTEMPer/temper_mon.pl:1.2
--- packages/perl-Device-USB-PCSensor-HidTEMPer/temper_mon.pl:1.1	Sat Aug 13 06:15:49 2011
+++ packages/perl-Device-USB-PCSensor-HidTEMPer/temper_mon.pl	Sat Aug 13 06:16:45 2011
@@ -1,20 +1,10 @@
-#! /usr/bin/perl
-
-use 5.010;
+#!/usr/bin/perl
 use strict;
-use warnings;
-use Carp;
-use Device::USB;
-use Device::USB::PCSensor::HidTEMPer::Device;
-use Device::USB::PCSensor::HidTEMPer::NTC;
-use Device::USB::PCSensor::HidTEMPer::TEMPer; 
-use lib;
 use Device::USB::PCSensor::HidTEMPer;
 
 my $pcsensor  = Device::USB::PCSensor::HidTEMPer->new();
 my @devices   = $pcsensor->list_devices();
-  
-foreach my $device ( @devices )
-   {
-   say $device->internal()->celsius();
-   }
\ No newline at end of file
+
+foreach my $device (@devices) {
+	printf "Sensor Temperature C: %s\n", $device->internal()->celsius();
+}
================================================================

---- CVS-web:
    http://cvs.pld-linux.org/cgi-bin/cvsweb.cgi/packages/perl-Device-USB-PCSensor-HidTEMPer/temper_mon.pl?r1=1.1&r2=1.2&f=u