21 lines
368 B
Perl
21 lines
368 B
Perl
|
#!/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 "deinit...\n";
|
||
|
|
physfs::deinit();
|
||
|
|
|
||
|
|
print "done!\n";
|
||
|
|
exit 0;
|
||
|
|
|