fix memory leak

.github/workflows/test.yml

@@ -22,12 +22,12 @@ jobs:
             prove: /usr/local/bin/prove
             cpm-option: ''
     steps:
-      - uses: actions/checkout@v3
+      - uses: actions/checkout@v4
       - name: perl -V
         run: ${{ matrix.perl }} -V
       - name: Install Dependencies
         run: curl -fsSL --compressed https://raw.githubusercontent.com/skaji/cpm/main/cpm | ${{ matrix.perl }} - install -g ${{ matrix.cpm-option }} --with-develop --with-recommends --show-build-log-on-failure
       - name: Build
         run: ${{ matrix.perl }} Makefile.PL && make
       - name: Run Tests
-        run: make test
+        run: ${{ matrix.prove }} -b t xt

FSEvents.xs

@@ -386,12 +386,11 @@ PPCODE:
 
     fh = fdopen( respipe_read_copy, "r" );
 
-    glob = (GV *) SvREFCNT_inc(newGVgen("Mac::FSEvents"));
+    glob = (GV *) newGVgen("Mac::FSEvents");
     fp   = PerlIO_importFILE(fh, 0);
     do_open(glob, "+<&", 3, FALSE, 0, 0, fp);
 
-    XPUSHs( sv_2mortal( newRV((SV *) glob) ) );
-    SvREFCNT_dec(glob);
+    XPUSHs( sv_2mortal( newRV_noinc((SV *) glob) ) );
     return;
 handle_errors:
     if(self->respipe[0] >= 0) {

cpm.yml

@@ -5,3 +5,6 @@ prereqs:
   test:
     requires:
       Test::More: { version: '0.99' }
+  develop:
+    requires:
+      Test::LeakTrace:

dist.ini

@@ -37,6 +37,7 @@ match = ^(xt|author|maint|example|eg)/
 [GitHubREADME::Badge]
 badges = github_actions/test.yml
 [Prereqs::From::cpmfile]
+phases = configure,build,runtime,test
 [MetaJSON]
 [Git::Contributors]
 [License]

xt/01_leak.t

@@ -0,0 +1,14 @@
+use strict;
+use warnings;
+use Test::More;
+
+use Mac::FSEvents;
+use Test::LeakTrace;
+
+no_leaks_ok {
+    my $fs = Mac::FSEvents->new(path => "/");
+    my $fh = $fs->watch;
+    $fs->stop;
+};
+
+done_testing;