github.com/xen-tools.xen-tools
1
0
Fork 0
mirror of synced 2026-01-24 19:11:59 +00:00
Code Releases Activity

Make t/getopt.t parse '|' in GetOpt definitions

Browse Source
This commit is contained in:
Axel Beckert 2010-07-16 17:19:17 +02:00
parent 660569dffe
commit cc64623752
1 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
t/getopt.t
View File

@ -125,13 +125,18 @@ sub testFile
#
next if ( $o =~ /^[ \t]*$/ );
#
# Now split at pipe
#
foreach my $osplit (split(/\|/, $o)) {
#
# Phew. Now we're done.
#
# This option '$o' is something we call GetOptions with.
#
$accepted{$o} = 1;
#
# Phew. Now we're done.
#
# This option '$osplit' is something we call GetOptions with.
#
$accepted{$osplit} = 1;
}
}
}