Cast the 'cmd' argument as unsigned.

[perl-fuse.git] / examples / fioc.pl

diff --git a/examples/fioc.pl b/examples/fioc.pl
index 3461180..811cb80 100755 (executable)
--- a/examples/fioc.pl
+++ b/examples/fioc.pl
@@ -147,7 +147,6 @@ sub fioc_readdir {
 sub fioc_ioctl {
     my ($path, $cmd, $flags, $data) = @_;
     print 'called ', (caller(0))[3], "\n";
-    $cmd = unpack('L', pack('l', $cmd));
 
     return -&EINVAL if fioc_file_type($path) != FIOC_FILE;