fix the new warnings I asked for

[elogind.git] / test / udevd-test / udev-log-script.pl

diff --git a/test/udevd-test/udev-log-script.pl b/test/udevd-test/udev-log-script.pl
index 5f4f8a4495f7dafd55e523aa2d3c41517324a550..5d7ca7118158d6404306ab8ca75d0b0aedc84b52 100644 (file)
--- a/test/udevd-test/udev-log-script.pl
+++ b/test/udevd-test/udev-log-script.pl
@@ -36,35 +36,11 @@ use strict;
 # modifiable settings
 my $log_file  = "/tmp/udev_log.txt";
 
-# global variables
-my $devpath;
-my $action;
-my $subsystem;
-
-# common functions
-sub getDate {
-        # Get current date/time
-        # If we want GTM time, simply pass GMT as first argument to this function.
-        my $format = @_;
-        my $date;
-
-        if( $format =~ /GMT/i ) {
-                $date = gmtime() . " GMT";
-        } else {
-                $date = localtime();
-        }
-        return $date;
-}
-
-# main program
 if ($ARGV[0]) {
-       # prepare
-       $subsystem = $ARGV[0];
-       $devpath = $ENV{DEVPATH};
-       $action = $ENV{ACTION};
-
-       # Get current system date
-       my $time = getDate();
+       my $subsystem = $ARGV[0];
+       my $devpath = $ENV{DEVPATH};
+       my $action = $ENV{ACTION};
+       my $time = time();
 
        # Logging
         if (open(LOGF, ">>$log_file")) {