X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=examples%2Ffioc.pl;h=811cb80b8abc8d7ce7ab6131cd32d4e98ec40677;hb=7f982ef01e7f172d79086ef68ddfd5591397f541;hp=346118086725c2368095d8d1ecf69a882dc93037;hpb=2c931cd0d0bec1ab010720a97aca9c842c4939f7;p=perl-fuse.git

diff --git a/examples/fioc.pl b/examples/fioc.pl
index 3461180..811cb80 100755
--- 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;