Devel-Trace-Syscall

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

0.05 January 31 2018
        - Fixed printing of 4th system call argument
        - Fixed tests with regards to open vs openat

0.04 May 31 2017
        - Removed debugging code
        - Fix build problems on some perls

0.03 May 28 2017
        - Remove usage of Test::Differences::Color until that module has been fixed (GH #17, thanks Slaven Rezić for the report!)
        - Fixed compilation warnings

0.02 June 23 2014
        - Fix some POD problems
        - Fix a compiler error on GCC 4.7 (thanks sharyanto!)

0.01 June 18 2014
        - First version!  Allows tracing of system calls across a program's lifetime

META.yml  view on Meta::CPAN

---
abstract: 'Print a stack trace whenever a system call is made'
author:
  - 'Rob Hoelz <rob@hoelz.ro>'
build_requires:
  Test::Differences: '0.61'
configure_requires:
  ExtUtils::MakeMaker: '0'
dynamic_config: 0
generated_by: 'Dist::Zilla version 6.009, CPAN::Meta::Converter version 2.150005'
license: perl
meta-spec:
  url: http://module-build.sourceforge.net/META-spec-v1.4.html
  version: '1.4'
name: Devel-Trace-Syscall
requires:

Makefile.PL  view on Meta::CPAN

WriteMakefile(
    NAME           => 'Devel::Trace::Syscall',
      'ABSTRACT' => 'Print a stack trace whenever a system call is made',
  'AUTHOR' => 'Rob Hoelz <rob@hoelz.ro>',
  'LICENSE' => 'perl',
  'VERSION' => '0.05',
      'CONFIGURE_REQUIRES' => {
    'ExtUtils::MakeMaker' => '0'
  },
  'TEST_REQUIRES' => {
    'Test::Differences' => '0.61'
  },
    LIBS           => [''],
    DEFINE         => '',
    INC            => '-I.',
    OBJECT         => '$(BASEEXT)$(OBJ_EXT) syscall-info-x86-64.o',
    CCFLAGS        => $ccflags,
    depend         => {
        'Syscall.o' => 'syscall-lookup.h',
    },
    clean => {

t/run_tests.t  view on Meta::CPAN

#!/usr/bin/env perl

use strict;
use warnings;
use autodie;
use feature qw(say);

use FindBin;
use File::Spec;
use Test::More;
use Test::Differences;

my $INDENT         = qr/\s+/;
my $SYSCALL_NAME   = qr/[a-zA-Z_:]+/;
my $SYSCALL_ARGS   = qr/\((?<args>.*)\)/;
my $SYSCALL_RESULT = qr/([-]?\d+)|([*])/;
my $LOCATION       = qr/.*/;

sub capture_trace_output {
    my ( @command ) = @_;