diff options
| author | Yaakov Nemoy <loupgaroublond@gmail.com> | 2008-09-28 10:29:00 -0400 |
|---|---|---|
| committer | Yaakov M. Nemoy <loupgaroublond@gmail.com> | 2008-09-28 10:29:00 -0400 |
| commit | d491ac3a2199cb1f3cdcd4f2f6b3d877b3a65a65 (patch) | |
| tree | 9940bed9d7c8edd1d416659f23b5c56c929ef8c9 /rebuild-scripts/check_release | |
| parent | 40119a669a625b839503d91aa5d40e112f7e46e2 (diff) | |
| download | fedora-devshell-d491ac3a2199cb1f3cdcd4f2f6b3d877b3a65a65.tar.gz fedora-devshell-d491ac3a2199cb1f3cdcd4f2f6b3d877b3a65a65.tar.xz fedora-devshell-d491ac3a2199cb1f3cdcd4f2f6b3d877b3a65a65.zip | |
Make the shell functions a bit more modular for scripting
Diffstat (limited to 'rebuild-scripts/check_release')
| -rwxr-xr-x | rebuild-scripts/check_release | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/rebuild-scripts/check_release b/rebuild-scripts/check_release new file mode 100755 index 0000000..74b9999 --- /dev/null +++ b/rebuild-scripts/check_release @@ -0,0 +1,12 @@ +#!/usr/bin/env perl +# $Id: check_release,v 1.1.1.1 2006/10/06 22:22:02 c4chris Exp $ +use strict; +while ( <> ) { + s/\s+$//; + my @F = split; + my ($r) = $F[6] =~ /-([^-]+)$/; + $r =~ s/\.fc6//; + next if $r =~ /^\d+$/; + print "$_\n"; +} +exit 0; |