view release on metacpan or  search on metacpan

BikePower.pm  view on Meta::CPAN

        eval {
            require Win32Util; # XXX private module
            $home = Win32Util::get_user_folder();
            if (defined $home) {
                $home .= "/bikepwr.rc";
            }
        };
    }
    if (!defined $home) {
        $home = eval { local $SIG{__DIE__};
		       (getpwuid($<))[7];
		   } || $ENV{'HOME'} || '';
        $home .= ($^O eq 'MSWin32' ? "/bikepwr.rc" : "/.bikepowerrc");
    }
    $home;
}

sub load_defaults {
    my($self, $file) = @_;
    $file = _default_filename unless $file;
    my $x;

Changes  view on Meta::CPAN

	- a slightly better POD

0.14
	- tk_interface now in BikePower/Tk.pm

0.13
	- automatic checkbutton
	- using NumEntry if available
	- Help menu: About and Reference
	- prefer getOpenFile/getSaveFile over FileDialog (on Tk800)
	- no failure on getpwuid (for Win32)
	- some fixes

0.10  Mon Nov 10 20:00:15 1997
	- original version