|
|
@@ -1,21 +0,0 @@
|
|
|
-#!/usr/bin/perl -w
|
|
|
-
|
|
|
-use strict;
|
|
|
-use warnings;
|
|
|
-use physfs;
|
|
|
-
|
|
|
-print "testing PhysicsFS Perl bindings...\n";
|
|
|
-
|
|
|
-print "init...\n";
|
|
|
-physfs::init("$0") or die("physfs::init('$0'): ".physfs::getLastError()."\n");
|
|
|
-
|
|
|
-print "user dir: ", physfs::getUserDir(), "\n";
|
|
|
-print "base dir: ", physfs::getBaseDir(), "\n";
|
|
|
-print "pref dir: ", physfs::getPrefDir("icculus.org", "test_physfs"), "\n";
|
|
|
-
|
|
|
-print "deinit...\n";
|
|
|
-physfs::deinit();
|
|
|
-
|
|
|
-print "done!\n";
|
|
|
-exit 0;
|
|
|
-
|