Hi,

I found something weird in PackagePath.pm and I have to make it clear here.


sub list_distro_pools {
    my $ddir = "/tftpboot/distro";
    # recognised architectures
    my $arches = "i386|x86_64|ia64|ppc|ppc64";
    my %pools;
    local *DIR;
    opendir DIR, $ddir or carp "Could not read directory $ddir!";
    for my $e (readdir DIR) {
        if ( ($e =~ /(.*)\-(\d+)\-($arches)(|\.url)$/) ||
             ($e =~ /(.*)\-(\d+.\d+)\-($arches)(|\.url)$/) ) {


Does any one know why "|" is needed in (|\.url)?

Looks like Erich wrote this code. Erich, can you please take a look at this?

This caused to return wrong $os information even though it has the correct the 
.url file.

Regards,


-- 
- DongInn

-------------------------------------------------------------------------
This SF.net email is sponsored by: Splunk Inc.
Still grepping through log files to find problems?  Stop.
Now Search log events and configuration files using AJAX and a browser.
Download your FREE copy of Splunk now >> http://get.splunk.com/
_______________________________________________
Oscar-devel mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/oscar-devel

Reply via email to