Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP

We’re showing branches in this repository, but you can also compare across forks.

base fork: PerlGameDev/SDL2
base: 4e20cdacf0
...
head fork: PerlGameDev/SDL2
compare: 2f60245f23
  • 2 commits
  • 3 files changed
  • 0 commit comments
  • 1 contributor
8 lib/SDL2/Window.pm
View
@@ -1,17 +1,11 @@
package SDL2::Window;
use strict;
use warnings;
-use vars qw($VERSION $XS_VERSION @ISA @EXPORT @EXPORT_OK);
+use vars qw(@ISA @EXPORT @EXPORT_OK);
require Exporter;
require DynaLoader;
our @ISA = qw(Exporter DynaLoader);
-our $VERSION = '0.01';
-our $XS_VERSION = $VERSION;
-$VERSION = eval $VERSION;
-
-
-
use SDL2::Internal::Loader;
internal_load_dlls(__PACKAGE__);
6 lib/SDL2pp.pm
View
@@ -1,15 +1,11 @@
package SDL2pp;
use strict;
use warnings;
-use vars qw($VERSION $XS_VERSION @ISA @EXPORT @EXPORT_OK);
+use vars qw(@ISA @EXPORT @EXPORT_OK);
require Exporter;
require DynaLoader;
our @ISA = qw(Exporter DynaLoader);
-our $VERSION = '0.01';
-our $XS_VERSION = $VERSION;
-$VERSION = eval $VERSION;
-
use SDL2::Internal::Loader;
internal_load_dlls(__PACKAGE__);
6 src/Core/objects/Window.xs
View
@@ -29,7 +29,7 @@ window_new (CLASS, title, x, y, w, h, flags)
Uint32 flags
CODE:
SDL_Window* window = SDL_CreateWindow(title, x, y, w, h, flags);
- warn( "Made window %p", window);
+ //warn( "Made window %p", window);
RETVAL = window;
OUTPUT:
RETVAL
@@ -40,6 +40,6 @@ window_DESTROY(bag)
CODE:
void* obj = bag2obj( bag );
SDL_Window* window = (SDL_Window*)obj;
- warn( "Destroying bag: %p obj: %p window %p", bag, obj, window );
+ //warn( "Destroying bag: %p obj: %p window %p", bag, obj, window );
SDL_DestroyWindow( window );
- warn( "Destroyed");
+ //warn( "Destroyed");

No commit comments for this range

Something went wrong with that request. Please try again.